| line |
true |
false |
branch |
|
27
|
0 |
1 |
unless opendir DIR, $$self{'tmpl_dir'} |
|
30
|
3 |
2 |
if $ent =~ /^\./ or not -d "$$self{'tmpl_dir'}/$ent" |
|
57
|
0 |
0 |
unless (-d $odir) |
|
58
|
0 |
0 |
unless mkdir $odir |
|
64
|
0 |
0 |
if /\.tmpl$/ and not /^inc_/ |
|
65
|
0 |
0 |
if /\.pm$/ |
|
69
|
0 |
0 |
unless @$files |
|
80
|
0 |
0 |
if (@$libs) |
|
100
|
0 |
0 |
if ($@) |
|
106
|
0 |
0 |
if $tmpl->get($key) |
|
119
|
0 |
0 |
if ($file =~ /{method\.([a-zA-Z_][a-zA-Z0-9_]*)}/) { } |
|
122
|
0 |
0 |
unless $$method{$1} |
|
125
|
0 |
0 |
if ref $val eq 'CODE' |
|
128
|
0 |
0 |
if $@ |
|
138
|
0 |
0 |
unless (-d $osubdir) |
|
139
|
0 |
0 |
unless mkpath($osubdir) |
|
143
|
0 |
0 |
unless open OUT, ">$ofile2" |
|
153
|
0 |
0 |
if ref $val eq 'CODE' |
|
163
|
0 |
0 |
unless (-d $osubdir) |
|
164
|
0 |
0 |
unless mkpath($osubdir) |
|
168
|
0 |
0 |
unless open OUT, ">$ofile" |
|
188
|
0 |
0 |
if -d $dir |