package [% class %];

use strict;
use warnings;
use parent 'Catalyst::[% long_type %]';

=head1 NAME

[% class %] - Catalyst [% long_type %]

=head1 DESCRIPTION

Catalyst [% long_type %].
[% IF long_type == 'Controller' %]
=head1 METHODS

=cut


=head2 index

=cut

sub index :Path :Args(0) {
    my ( $self, $c ) = @_;

    $c->response->body('Matched [% class %] in [%name%].');
}

[% END %]
=head1 AUTHOR

[%author%]

=head1 LICENSE

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

=cut

1;