| line |
!l |
l&&!r |
l&&r |
condition |
|
303
|
0 |
52 |
34 |
@args and $args[0] =~ /^-(strict|debug|trace|rename|readonly|strict_keys)$/ |
|
337
|
64 |
5 |
9 |
$opts{'rename'} && exists $opts{'rename'}{$key} |
|
348
|
53 |
14 |
3 |
$opts{'strict_keys'} and not exists $newpad{$var} |
|
821
|
0 |
39 |
23 |
@args and $args[0] =~ /^-(strict|debug|trace|readonly|strict_keys)$/ |
|
828
|
0 |
37 |
18 |
@args and $args[0] =~ /^-(only|except|rename)$/ |
|
848
|
31 |
5 |
1 |
$only and $except |
|
860
|
9 |
0 |
26 |
@args == 1 and ref $args[0] eq "HASH" |
|
863
|
2 |
6 |
1 |
@args >= 1 and ref $args[0] eq "HASH" |