| line |
true |
false |
branch |
|
87
|
1 |
5 |
unless defined $file |
|
89
|
1 |
4 |
unless defined $keys |
|
90
|
1 |
3 |
unless ref $keys eq "Set::Tiny" |
|
93
|
1 |
2 |
unless ref $license_ref eq "ARRAY" |
|
96
|
1 |
1 |
unless defined $use_backup |
|
100
|
1 |
1 |
if ($use_backup) { } |
|
102
|
0 |
1 |
unless rename $file, $backup |
|
117
|
0 |
2 |
unless open my $out, ">", $file |
|
119
|
0 |
2 |
unless close $out |
|
147
|
1 |
3 |
unless $dir |
|
149
|
1 |
2 |
unless ref $dir eq "" |
|
151
|
1 |
1 |
unless -d $dir |
|
158
|
5 |
0 |
unless ($file =~ /$src_regex/u or $file =~ /$target_regex/u) |
|
159
|
3 |
2 |
if $file =~ /$msgs_regex/u or $file =~ /$jelly_regex/u |
|
190
|
0 |
0 |
unless $dir |
|
192
|
0 |
0 |
unless ref $dir eq "" |
|
194
|
0 |
0 |
unless -d $dir |
|
201
|
0 |
0 |
unless ($file =~ /$src_regex/u or $file =~ /$target_regex/u) |
|
202
|
0 |
0 |
if ($file =~ /$regex/u) |
|
205
|
0 |
0 |
if ($2) { } |
|
248
|
0 |
4 |
unless $file |
|
250
|
1 |
3 |
unless defined $must_warn |
|
253
|
2 |
1 |
unless (-f $file) |
|
254
|
1 |
1 |
if $must_warn |
|
277
|
0 |
2 |
unless open my $fh, "<", $file |
|
280
|
60 |
4 |
unless /\$\{.*?\%([^\(]+?).*\}/u |