| line |
true |
false |
branch |
|
82
|
0 |
1 |
unless $fn =~ m[/$] |
|
86
|
0 |
6 |
if -l $f |
|
90
|
0 |
4 |
if ($f eq '..' or $f eq '.' or $f eq '.svn' or $f =~ /(?:~|\.swp)$/) |
|
98
|
0 |
4 |
if (-d $f) { } |
|
140
|
6 |
2 |
if ($token) |
|
157
|
112 |
65 |
if $_[0] |
|
196
|
0 |
0 |
unless $config{'quiet'} |
|
246
|
5 |
15 |
if ($$meta{'ITEMS'}[0] and $$meta{'ITEMS'}[0] eq $key) { } |
|
272
|
1 |
0 |
if ($options{'file'}) |
|
284
|
4 |
3 |
if (not defined $datasource or lc $in ne 'in') |
|
292
|
1 |
2 |
unless ($ds and blessed $ds) |
|
313
|
1 |
2 |
if ($contents =~ /\s/) |
|
325
|
1 |
1 |
if (defined $c) { } |
|
343
|
1 |
8 |
if ($$tokens[0][0] eq 'TAG_START' and $$tokens[1][0] eq 'KEYWORD' and $$tokens[1][1] eq 'endverbatim' and $$tokens[2][1] =~ /\s*\Q$key\E\s*/ and $$tokens[3][0] eq 'TAG_END') { } |
|
370
|
8 |
7 |
if ($name =~ /\./) |
|
374
|
1 |
16 |
if (not defined $var && ref $var or reftype $var ne 'HASH') |
|
375
|
0 |
1 |
unless ($$meta{'NO_VAR_WARN'}) |
|
384
|
5 |
2 |
if (exists $$meta{'VARS'}{$name}) { } |
|
387
|
0 |
2 |
unless ($$meta{'NO_VAR_WARN'} or $config{'quiet'}) |
|
396
|
0 |
3 |
unless defined $str |
|
417
|
12 |
2 |
unless defined $str |
|
435
|
0 |
0 |
if (pos($str) + 1 < length $str) |
|
449
|
12 |
80 |
if ($_ eq 'VARS') { } |
|
452
|
0 |
7 |
if (blessed($vs{$v})) { } |
|
455
|
0 |
7 |
ref $vs{$v} ? : |
|
459
|
64 |
16 |
ref $$meta{$_} ? : |
|
471
|
5 |
15 |
if ($$meta{'CURRENT_ITEM'}) { } |
|
508
|
1 |
12 |
if (defined $options{'escape'} and lc $options{'escape'} eq 'html') |
|
511
|
10 |
2 |
if defined $c |
|
522
|
0 |
0 |
if (scalar @t != 2) |
|
552
|
0 |
2 |
if ($lang eq 'escape') |
|
559
|
2 |
0 |
if ($@) { } |
|
561
|
1 |
1 |
unless $config{'quiet'} |
|
565
|
0 |
0 |
unless $config{'quiet'} |
|
583
|
2 |
299 |
unless @$tokens |
|
584
|
0 |
299 |
unless ref $tokens eq 'ARRAY' |
|
585
|
298 |
1 |
if ($$tokens[0][0] eq $expect) |
|
587
|
298 |
0 |
if (not defined $e_val or $e_val eq $$tokens[0][1]) { } |
|
615
|
40 |
59 |
if ($$meta{'INSIDE_ITEM'}) { } |
|
627
|
76 |
20 |
if ($$tokens[0][0] eq 'TAG_START') { } |
|
|
20 |
0 |
elsif ($$tokens[0][0] eq 'BRACES_START') { } |
|
643
|
8 |
67 |
if ($$meta{'PARSE_UPTO'} and $$meta{'PARSE_UPTO'} eq $key) |
|
669
|
67 |
0 |
if ($func) { } |
|
680
|
25 |
53 |
if ($$meta{'INSIDE_ITEM'}) { } |
|
694
|
0 |
20 |
unless open my $fh, "<:encoding($config{'encoding'})", $fn |
|
720
|
4 |
0 |
if (-e $global_include_fn) |
|
745
|
4 |
0 |
if ($fn =~ /$re/) |
|
753
|
4 |
0 |
if ($process) { } |
|
755
|
0 |
0 |
if ($config{'make_behaviour'} and -e $new_fn and (stat $fn)[9] < (stat $new_fn)[9]) |
|
758
|
4 |
0 |
unless $config{'quiet'} |
|
768
|
3 |
1 |
unless (exists $$metadata{'OPTIONS'}{'no-header'}) |
|
774
|
3 |
1 |
unless (exists $$metadata{'OPTIONS'}{'no-footer'}) |
|
784
|
4 |
0 |
if (compare($new_fn, $tmp_name) == 0) { } |
|
785
|
4 |
0 |
unless $config{'quiet'} |
|
788
|
0 |
0 |
unless $config{'quiet'} |
|
791
|
0 |
0 |
if (compare($fn, $new_fn) == 0) { } |
|
808
|
0 |
0 |
if ($new_fn =~ /$_/) |
|
814
|
4 |
0 |
if ($found == 0) |
|
824
|
0 |
0 |
if (-e $cfg_file) { } |
|
842
|
0 |
0 |
defined $$h{uc $feat}{$_} ? : |
|
849
|
0 |
0 |
unless keys %inc |
|
850
|
0 |
0 |
unless $$h{'EXCLUDE'} |
|
870
|
0 |
17 |
unless $source_fn |
|
876
|
0 |
0 |
if ($source_fn =~ /$_/) |
|
884
|
0 |
17 |
if (defined $re) |
|
885
|
0 |
0 |
if defined $config{'per_fn'}{$re}{$type} |
|
886
|
0 |
0 |
if defined $config{'per_fn'}{$re}{'postfix'} |