| line |
true |
false |
branch |
|
306
|
7 |
27 |
if ($flag eq "-rename") |
|
308
|
0 |
7 |
unless ref $map eq "HASH" |
|
318
|
2 |
50 |
if $opts{'trace'} |
|
322
|
2 |
50 |
unless ref $href eq "HASH" |
|
324
|
2 |
48 |
unless ref $code eq "CODE" |
|
327
|
2 |
46 |
if $opts{'trace'} |
|
337
|
9 |
69 |
$opts{'rename'} && exists $opts{'rename'}{$key} ? : |
|
340
|
8 |
70 |
unless ($lex =~ /^[A-Za-z_]\w*$/) |
|
341
|
1 |
7 |
if $opts{'debug'} |
|
348
|
3 |
67 |
if ($opts{'strict_keys'} and not exists $newpad{$var}) |
|
353
|
8 |
59 |
unless (exists $newpad{$var}) |
|
354
|
3 |
5 |
if ($opts{'strict'}) |
|
357
|
0 |
5 |
if $opts{'debug'} |
|
362
|
4 |
55 |
if ($opts{'readonly'}) { } |
|
369
|
6 |
53 |
if $opts{'debug'} |
|
376
|
2 |
40 |
if $opts{'trace'} |
|
832
|
11 |
7 |
if ($flag eq "-only" or $flag eq "-except") |
|
833
|
2 |
9 |
unless ref $value eq "ARRAY" |
|
835
|
6 |
3 |
if $flag eq "-only" |
|
836
|
3 |
6 |
if $flag eq "-except" |
|
840
|
7 |
0 |
if ($flag eq "-rename") |
|
841
|
0 |
7 |
unless ref $value eq "HASH" |
|
848
|
1 |
36 |
if $only and $except |
|
851
|
0 |
36 |
unless @args |
|
855
|
1 |
35 |
unless ref $code eq "CODE" |
|
860
|
26 |
9 |
if (@args == 1 and ref $args[0] eq 'HASH') { } |
|
863
|
1 |
8 |
if (@args >= 1 and ref $args[0] eq "HASH") |
|
867
|
1 |
7 |
if @args % 2 |
|
876
|
7 |
26 |
if ($only or $except) |
|
877
|
5 |
2 |
$only ? : |
|
878
|
2 |
5 |
$except ? : |
|
881
|
5 |
2 |
if ($only) { } |
|
|
2 |
0 |
elsif ($except) { } |
|
888
|
13 |
13 |
if $keep{$k} |
|
898
|
5 |
23 |
if %removed |