File Coverage

blib/lib/ASP4/HandlerRunner.pm
Criterion Covered Total %
statement 16 16 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 3 0.0
total 22 26 84.6


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