File Coverage

blib/lib/WebServer/DirIndex/HTML.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1 3     3   104006 use strict;
  3         8  
  3         102  
2 3     3   14 use warnings;
  3         5  
  3         142  
3 3     3   757 use Feature::Compat::Class;
  3         581  
  3         15  
4              
5             class WebServer::DirIndex::HTML v0.1.0 {
6              
7             field $icons :param = 0;
8              
9             field $_file_html = <<'FILE';
10            
11             %s
12             %s
13             %s
14             %s
15            
16             FILE
17              
18             field $file_html_icons :reader = <<'FILE';
19            
20            
21             %s
22             %s
23             %s
24             %s
25            
26             FILE
27              
28             field $_dir_html = <<'DIR';
29            
30            
31             %s
32            
33            
36            
37            
38            

%s
39            
40            
41            
42            
43             Name
44             Size
45             Type
46             Last Modified
47            
48            
49            
50             %s
51            
52            
53            
54            
55            
56             DIR
57              
58             field $dir_html_icons :reader = <<'DIR';
59            
60            
61             %s
62            
63            
64            
67            
68            
69            

%s
70            
71            
72            
73            
74            
75             Name
76             Size
77             Type
78             Last Modified
79            
80            
81            
82             %s
83            
84            
85            
86            
87            
88             DIR
89              
90             method file_html { return $icons ? $file_html_icons : $_file_html }
91             method dir_html { return $icons ? $dir_html_icons : $_dir_html }
92             }
93              
94             1;
95              
96             __END__