| Package |
Line |
File |
| Template::Context |
497 |
/usr/lib/perl5/Template/Context.pm |
494: die $error;
495: }
496: elsif (defined $info) {
497: die (Template::Exception->new($error, $info, $output));
498: }
499: else {
500: $error ||= '';
|
| Template::Context |
162 |
/usr/lib/perl5/Template/Context.pm |
159: $blockname = length $blockname ? "$1/$blockname" : $1;
160: }
161:
162: $self->throw(Template::Constants::ERROR_FILE, "$name: not found");
163: }
164:
165:
|
| Template::Service |
65 |
/usr/lib/perl5/Template/Service.pm |
62:
63: # pre-request compiled template from context so that we can alias it
64: # in the stash for pre-processed templates to reference
65: eval { $template = $context->template($template) };
66: return $self->error($@)
67: if $@;
68:
|
| Template::Service |
65 |
/usr/lib/perl5/Template/Service.pm |
62:
63: # pre-request compiled template from context so that we can alias it
64: # in the stash for pre-processed templates to reference
65: eval { $template = $context->template($template) };
66: return $self->error($@)
67: if $@;
68:
|
| Template |
64 |
/usr/lib/perl5/Template.pm |
61: # don't remove it if you don't want tests to fail...
62: $self->DEBUG("set binmode\n") if $DEBUG && $options->{ binmode };
63:
64: $output = $self->{ SERVICE }->process($template, $vars);
65:
66: if (defined $output) {
67: $outstream ||= $self->{ OUTPUT };
|
| CGI::Application::Plugin::TT |
314 |
/usr/share/perl5/CGI/Application/Plugin/TT.pm |
311: # Add c => $self in as a param for convenient access to sessions and such
312: $params{c} ||= $self;
313:
314: $self->tt_obj->process($file, \%params, \$html) || croak $self->tt_obj->error();
315:
316: # Call tt_post_process hook
317: $self->tt_post_process(\$html) if $self->can('tt_post_process');
|
| MyApp |
24 |
lib/MyApp.pm |
21: my $self = shift;
22: #die "foooo";
23: #&foo();
24: return $self->tt_process('index.tt.html');
25: }
26:
27: sub dispatch_test{
|
| CGI::Application |
142 |
/usr/share/perl5/CGI/Application.pm |
139:
140: my $body;
141: eval {
142: $body = $is_autoload ? $self->$rmeth($rm) : $self->$rmeth();
143: };
144: if ($@) {
145: my $error = $@;
|
| CGI::Application |
141 |
/usr/share/perl5/CGI/Application.pm |
138: my ($rmeth, $is_autoload) = $self->__get_runmeth($rm);
139:
140: my $body;
141: eval {
142: $body = $is_autoload ? $self->$rmeth($rm) : $self->$rmeth();
143: };
144: if ($@) {
|
| 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:
|