| line |
true |
false |
branch |
|
33
|
129 |
25 |
if (ref $f) { } |
|
|
0 |
25 |
elsif (not -e $f) { } |
|
|
1 |
24 |
elsif (-d _) { } |
|
35
|
0 |
129 |
if ($options->{'in_place'}) |
|
42
|
0 |
1 |
unless ($options->{'recursive'}) |
|
47
|
1 |
0 |
if (defined $options->{'input_filter'}) |
|
49
|
0 |
1 |
if $@ |
|
55
|
9 |
2 |
if (-f _) |
|
57
|
9 |
0 |
if (defined $filter) |
|
59
|
7 |
2 |
if warn_or_die_if_needed('Perl code failed while filtering input') or not $r |
|
78
|
4 |
134 |
if ($options->{'merge'}) { } |
|
79
|
4 |
0 |
if $options->{'debug_mode'} |
|
112
|
138 |
0 |
if ($options->{'debug_mode'}) |
|
119
|
138 |
0 |
if $options->{'debug_mode'} |
|
121
|
0 |
138 |
if $options->{'abort'} |