/usr/share/perl5/Module/Starter/Plugin/CGIApp/templates/Module.pm is in libmodule-starter-plugin-cgiapp-perl 0.30-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 | =head1 NAME
<tmpl_var module> - The great new <tmpl_var module> web application!
=head1 SYNOPSIS
use <tmpl_var module>;
my $app = <tmpl_var module>->new();
$app->run();
=head1 ABSTRACT
A brief summary of what <tmpl_var module> does.
=cut
package <tmpl_var module>;
use warnings;
use strict;
use base 'CGI::Application';
use Carp qw( croak );
=head1 VERSION
This document describes <tmpl_var module> Version 0.01
=cut
our $VERSION = '0.01';
=head1 DESCRIPTION
Overview of functionality and purpose of
web application module <tmpl_var module>...
=head1 METHODS
=head2 SUBCLASSED METHODS
=head3 setup
Sets up the run mode dispatch table and the start, error, and default run modes.
If the template path is not set, sets it to a default value.
TODO: change all these values to ones more appropriate for your application.
=cut
sub setup {
my ($self) = @_;
$self->start_mode('runmode1');
$self->error_mode('runmode1');
$self->run_modes( [qw/ runmode1 /] );
if ( !$self->tmpl_path ) {
( my $tp = '<tmpl_var distro>' ) =~ s{-}{/}gmsx;
$tp .= '/templates';
foreach my $inc (@INC) {
if ( -d "$inc/$tp" ) {
$self->tmpl_path("$inc/$tp");
last;
}
}
}
$self->run_modes( AUTOLOAD => 'runmode1' );
return;
}
=pod
TODO: Other methods inherited from CGI::Application go here.
=head2 RUN MODES
=head3 runmode1
* Purpose
* Expected parameters
* Function on success
* Function on failure
TODO: Describe runmode1 here. Rename runmode1 to something more appropriate
for your application.
=cut
sub runmode1 {
my ($self) = @_;
my $template = $self->load_tmpl;
$template->param( message => 'Hello world!' );
return $template->output;
}
=head2 OTHER METHODS
=head3 function1
TODO: Describe function1 here. Rename function1 to something more appropriate
for your application.
=cut
sub function1 {
my ($self) = @_;
return 1;
}
=pod
TODO: Other methods in your public interface go here.
=cut
# TODO: Private methods go here. Start their names with an _ so they are skipped
# by Pod::Coverage.
=head1 BUGS AND LIMITATIONS
There are no known problems with this module.
Please report any bugs or feature requests to
C<bug-<tmpl_var rtname> at rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=<tmpl_var distro>>.
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
=head1 SEE ALSO
L<CGI::Application>
=head1 THANKS
List acknowledgements here or delete this section.
=head1 AUTHOR
<tmpl_var author>, C<< <<tmpl_var email_obfuscated>> >>
=head1 LICENSE AND COPYRIGHT
Copyright <tmpl_var year> <tmpl_var author>, all rights reserved.
<tmpl_var license_blurb>
The full text of the license can be found in the LICENSE file included
with this distribution.
=cut
1; # End of <tmpl_var module>
__END__
|