File Coverage

blib/lib/ASP4/Page.pm
Criterion Covered Total %
statement 24 27 88.8
branch n/a
condition 1 2 50.0
subroutine 9 12 75.0
pod 0 6 0.0
total 34 47 72.3


line stmt bran cond sub pod time code
1              
2             package ASP4::Page;
3              
4 9     9   1479 use strict;
  9         13  
  9         284  
5 9     9   39 use warnings 'all';
  9         12  
  9         322  
6 9     9   84 use base 'ASP4::HTTPHandler';
  9         30  
  9         3796  
7 9     9   47 use Carp 'confess';
  9         12  
  9         664  
8 9     9   1110 use ASP4::HTTPContext;
  9         15  
  9         196  
9 9     9   369 use ASP4::PageParser;
  9         9  
  9         1346  
10              
11              
12             sub new
13             {
14 6178     6178 0 7198 my ($class, %args) = @_;
15            
16             my $s = bless {
17             masterpage => undef,
18             package => undef,
19             filename => undef,
20             compiled_as => undef,
21             script_name => $args{script_name} || undef,
22 6178   50     34578 %args
23             }, $class;
24            
25 6178         12624 $s->_init();
26            
27 6178         14301 return $s;
28             }# end new()
29              
30              
31             sub _init;
32              
33              
34 0     0 0 0 sub masterpage { shift->{masterpage} }
35 18     18 0 172 sub package { shift->{package} }
36 0     0 0 0 sub filename { shift->{filename} }
37 5     5 0 492 sub script_name { shift->{script_name} }
38 0     0 0   sub compiled_as { shift->{compiled_as} }
39              
40             1;# return true:
41