| line |
true |
false |
branch |
|
103
|
0 |
8 |
unless defined $$self{'workdir'} |
|
104
|
0 |
8 |
unless defined $$self{'template_root'} |
|
105
|
2 |
6 |
unless (-d $$self{'workdir'}) |
|
106
|
1 |
1 |
if ($$self{'create_workdir'}) { } |
|
107
|
0 |
1 |
unless mkpath($$self{'workdir'}) |
|
110
|
1 |
0 |
unless -d $$self{'workdir'} |
|
138
|
0 |
13 |
if @_ < 2 |
|
141
|
13 |
0 |
if ($options{'force_rebuild'} or not -f $pmfile or -M _ > -M "$$self{'template_root'}/$filename") |
|
162
|
0 |
1 |
if @_ < 2 |
|
164
|
0 |
1 |
unless $directory =~ s[([^/]+)$][] |
|
171
|
1 |
2 |
if -f $self->normalize_path("$$self{'template_root'}/$path/$filename") |
|
172
|
0 |
2 |
if $path eq '' |
|
175
|
0 |
1 |
unless $found |
|
177
|
1 |
0 |
if ($options{'force_rebuild'} or not -f $pmfile or -M _ > -M "$$self{'template_root'}/$path/$filename") |
|
222
|
0 |
14 |
if $filename =~ /\.\./ |
|
239
|
0 |
14 |
unless open INFILE, "< $$self{'template_root'}/$filename" |
|
243
|
1 |
13 |
if (defined $directory) |
|
251
|
0 |
13 |
unless open OUTFILE, "> $pmfile" |
|
265
|
40 |
15 |
@inpath > 0 && $inpath[0] ne '' ? : |
|
268
|
25 |
193 |
if $_ eq '' |
|
269
|
4 |
189 |
if $_ eq '..' |
|
273
|
15 |
40 |
unless $relative |