| line |
true |
false |
branch |
|
50
|
0 |
7 |
unless @_ % 2 |
|
63
|
0 |
3 |
unless @_ % 2 |
|
114
|
0 |
0 |
if /^\s*[#;]/ |
|
116
|
0 |
0 |
if (/^\s*MODE/i) { } |
|
127
|
0 |
0 |
if /^\s*(<\S+)\s+(.*)$/ |
|
128
|
0 |
0 |
if /^\s*(%(\S+))\s+(.*)$/ |
|
161
|
0 |
20 |
if $$visited{"VAR::$var"}++ |
|
191
|
2 |
131 |
if ($tag_lc eq 'mode') { } |
|
|
2 |
129 |
elsif ($tag_lc eq '/mode') { } |
|
203
|
20 |
109 |
if ($tag_lc eq 'var') { } |
|
|
2 |
107 |
elsif ($tag_lc eq 'include' or $tag_lc eq 'inc') { } |
|
|
2 |
105 |
elsif ($tag_lc eq 'exec') { } |
|
205
|
18 |
2 |
if ($args{'set'} eq '') { } |
|
212
|
2 |
0 |
$args{'echo'} ? : |
|
218
|
0 |
2 |
unless ($file_arg =~ /^[a-zA-Z0-9_\-]+(\.[a-zA-Z0-9_\-]*)?$/) |
|
227
|
2 |
0 |
if -e $file |
|
230
|
1 |
1 |
if $$visited{"INC::$file"}++ |
|
232
|
0 |
1 |
unless (open my $i, $file) |
|
243
|
0 |
2 |
unless ($$self{'EXEC_TAG_ALLOWED'}) |
|
250
|
0 |
2 |
unless (open my $i, $cmd . '|') |
|
265
|
18 |
87 |
if ($value and not $$visited{"${mode}::$tag"}) { } |
|
286
|
0 |
0 |
unless $$self{'WARNINGS'} or $$self{'WARN'} |