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   103765 use strict;
  3         7  
  3         105  
2 3     3   16 use warnings;
  3         6  
  3         177  
3 3     3   577 use Feature::Compat::Class;
  3         542  
  3         17  
4              
5             our $VERSION = '0.1.2';
6              
7             class WebServer::DirIndex::HTML {
8              
9             field $icons :param = 0;
10              
11             field $_file_html = <<'FILE';
12            
13             %s
14             %s
15             %s
16             %s
17            
18             FILE
19              
20             field $file_html_icons :reader = <<'FILE';
21            
22            
23             %s
24             %s
25             %s
26             %s
27            
28             FILE
29              
30             field $_dir_html = <<'DIR';
31            
32            
33             %s
34            
35            
38            
39            
40            

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

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