line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
|
2
|
|
|
|
|
|
|
package ASP4::HandlerRunner; |
3
|
|
|
|
|
|
|
|
4
|
6
|
|
|
6
|
|
23
|
use strict; |
|
6
|
|
|
|
|
8
|
|
|
6
|
|
|
|
|
171
|
|
5
|
6
|
|
|
6
|
|
23
|
use warnings 'all'; |
|
6
|
|
|
|
|
7
|
|
|
6
|
|
|
|
|
961
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
sub new |
9
|
|
|
|
|
|
|
{ |
10
|
5130
|
|
|
5130
|
0
|
5083
|
my ($class, %args) = @_; |
11
|
|
|
|
|
|
|
|
12
|
5130
|
|
|
|
|
10739
|
return bless \%args, $class; |
13
|
|
|
|
|
|
|
}# end new() |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
|
16
|
20520
|
|
|
20520
|
0
|
30787
|
sub context { ASP4::HTTPContext->current } |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
sub run_handler |
20
|
|
|
|
|
|
|
{ |
21
|
5130
|
|
|
5130
|
0
|
4581
|
my ($s, $handler_class, $args) = @_; |
22
|
|
|
|
|
|
|
|
23
|
5130
|
|
|
|
|
12171
|
my $handler = $handler_class->new(); |
24
|
5130
|
|
|
|
|
7959
|
$handler_class->init_asp_objects( $s->context ); |
25
|
5130
|
|
|
|
|
7085
|
$handler_class->before_run( $s->context, $args ); |
26
|
5130
|
50
|
|
|
|
9107
|
if( ! $s->{did_end} ) |
27
|
|
|
|
|
|
|
{ |
28
|
5130
|
|
|
|
|
5438
|
$handler_class->run( $s->context, $args ); |
29
|
5130
|
|
|
|
|
6877
|
$handler_class->after_run( $s->context, $args ); |
30
|
|
|
|
|
|
|
}# end if() |
31
|
|
|
|
|
|
|
}# end run_handler() |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
1;# return true: |
34
|
|
|
|
|
|
|
|