| line |
true |
false |
branch |
|
69
|
0 |
7 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
7 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
|
7 |
0 |
elsif (@_) { } |
|
109
|
7 |
0 |
if defined $args{'File'} |
|
111
|
0 |
7 |
if (ref $args{'Files'} eq 'ARRAY') { } |
|
|
0 |
7 |
elsif (defined $args{'Files'}) { } |
|
118
|
0 |
7 |
unless (@files) |
|
127
|
2 |
5 |
if defined $args{'Handler'} |
|
129
|
1 |
6 |
if (ref $args{'Handlers'} eq 'ARRAY') { } |
|
|
0 |
6 |
elsif (defined $args{'Handlers'}) { } |
|
138
|
1 |
6 |
if (ref $args{'Lexicals'} eq 'HASH') { } |
|
|
0 |
6 |
elsif (defined $args{'Lexicals'}) { } |
|
151
|
0 |
7 |
if (ref $args{'Symbols'} eq 'HASH') |
|
166
|
0 |
7 |
if -d $file |
|
174
|
0 |
7 |
unless (sysopen FILE, $file, 0) |
|
182
|
0 |
7 |
if ($args{'Taint_Clean'}) |
|
190
|
0 |
7 |
unless (_valid_namespace($namespace)) |
|
213
|
0 |
7 |
if (defined($error = $parse_perl_config{'Error'})) { } |
|
|
0 |
7 |
elsif ($@) { } |
|
270
|
0 |
203 |
if (exists $custom_symbols{$symbol}) { } |
|
279
|
170 |
138 |
if ($thing eq 'SCALAR') { } |
|
|
76 |
62 |
elsif (defined *$glob{$thing}) { } |
|
282
|
87 |
83 |
if (defined ${*$glob{'SCALAR'};}) |
|
294
|
163 |
40 |
if defined $value |
|
314
|
2 |
2 |
if (ref $handler eq 'CODE') { } |
|
|
2 |
0 |
elsif (ref $handler eq 'HASH') { } |
|
373
|
6 |
1 |
unless %$lexicals |
|
382
|
0 |
3 |
if (not $key =~ /^([^_\W][\w\d]*|\w[\w\d]+)$/) { } |
|
|
0 |
3 |
elsif (ref $value eq 'CODE') { } |
|
|
0 |
6 |
elsif ($key eq 'parse_perl_config' and ref $value eq 'HASH') { } |
|
421
|
0 |
7 |
if (defined $$args{'Namespace'}) { } |
|
429
|
0 |
7 |
if ($$args{'Taint_Clean'}) |
|
445
|
0 |
28 |
unless $ns_ele =~ /^[_A-Za-z][_A-Za-z0-9]*/ |
|
507
|
0 |
7 |
if (ref $string eq 'ARRAY') |
|
512
|
0 |
0 |
unless (exists $thing_key2str{$thing}) |
|
526
|
0 |
28 |
unless (defined $thing_str2key{$c}) |
|
541
|
0 |
0 |
if $^W |
|
551
|
77 |
0 |
unless ref $spec |
|
553
|
0 |
77 |
if ref $spec eq 'CODE' |
|
554
|
7 |
70 |
if $spec eq 'warn' |
|
555
|
0 |
70 |
if $spec eq 'fwarn' |
|
556
|
0 |
70 |
if $spec eq 'die' |
|
557
|
7 |
63 |
if $spec eq 'noop' |
|
560
|
63 |
0 |
ref $default eq 'CODE' ? : |