package Bookmarks::C::Main;

use strict;
use base 'Catalyst::Base';

=head1 NAME

Bookmarks::C::Main - Catalyst component

=head1 SYNOPSIS

See L<Bookmarks>

=head1 DESCRIPTION

Catalyst component.

=head1 METHODS

=over 4

=item default

=cut

sub default : Private {
    my ( $self, $c ) = @_;
    $c->res->redirect($c->req->base,'/tags');
}

sub tags : Global {
    my ( $self, $c ) = @_;
    $c->stash->{template}='tags';
    $c->stash->{tags}=[Bookmarks::M::DB::Tags->get_all_tags_by_popularity()];
}

=back


=head1 AUTHOR

A clever guy

=head1 LICENSE

This library is free software . You can redistribute it and/or modify
it under the same terms as perl itself.

=cut

1;