package Bookmarks;

use strict;
use Catalyst qw/-Debug Prototype DefaultEnd Static::Simple/;
use HTML::Element;

our $VERSION = '0.01';

Bookmarks->config(
    name => 'Bookmarks',
    'V::TT' => {
        TIMER => 0,
    },
);

Bookmarks->setup;

=head1 NAME

Bookmarks - Catalyst based application

=head1 SYNOPSIS

    script/bookmarks_server.pl

=head1 DESCRIPTION

Catalyst based application.

=head1 METHODS

=over 4

=item default

=cut

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

sub favicon : Path('favicon.ico') {
    my ( $self, $c ) = @_;
    $c->res->status(404);
    $c->res->body('nonce');
}

=back

=head1 AUTHOR

Catalyst developer

=head1 LICENSE

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

=cut

1;