[catagits/Catalyst-Devel.git] / share / lib / Helper / compclass.tt

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;
Commit	Line	Data
312ab89f	1	package [% class %];
	2
	3	use strict;
	4	use warnings;
	5	use parent 'Catalyst::[% long_type %]';
	6
	7	=head1 NAME
	8
	9	[% class %] - Catalyst [% long_type %]
	10
	11	=head1 DESCRIPTION
	12
	13	Catalyst [% long_type %].
	14	[% IF long_type == 'Controller' %]
	15	=head1 METHODS
	16
	17	=cut
	18
	19
	20	=head2 index
	21
	22	=cut
	23
	24	sub index :Path :Args(0) {
	25	my ( $self, $c ) = @_;
	26
	27	$c->response->body('Matched [% class %] in [%name%].');
	28	}
	29
	30	[% END %]
	31	=head1 AUTHOR
	32
	33	[%author%]
	34
	35	=head1 LICENSE
	36
	37	This library is free software. You can redistribute it and/or modify
	38	it under the same terms as Perl itself.
	39
	40	=cut
	41
	42	1;