| Package |
Line |
File |
| CGI::Application |
124 |
/usr/share/perl5/CGI/Application.pm |
121: }
122: else {
123: # Look for run mode "AUTOLOAD" before dieing
124: unless (exists($rmodes{'AUTOLOAD'})) {
125: croak("No such run mode '$rm'");
126: }
127: $rmeth = $rmodes{'AUTOLOAD'};
|
| CGI::Application |
138 |
/usr/share/perl5/CGI/Application.pm |
135: my $self = shift;
136: my $rm = shift;
137:
138: my ($rmeth, $is_autoload) = $self->__get_runmeth($rm);
139:
140: my $body;
141: eval {
|
| CGI::Application |
190 |
/usr/share/perl5/CGI/Application.pm |
187: }
188:
189: # Process run mode!
190: my $body = $self->__get_body($rm);
191:
192: # Support scalar-ref for body return
193: $body = $$body if ref $body eq 'SCALAR';
|
| main |
8 |
/home/masahiro/html/test/cgiappdebugscreen/app.cgi |
5: use lib "./lib";
6: use MyApp;
7:
8: MyApp->new->run;
9:
|