| line |
true |
false |
branch |
|
46
|
0 |
5 |
if @_ |
|
93
|
5 |
0 |
unless defined $errhandler |
|
100
|
0 |
0 |
ref $file ? : |
|
119
|
5 |
0 |
if (ref $file) { } |
|
123
|
0 |
5 |
if $debug |
|
127
|
0 |
0 |
unless (open FH, $file) |
|
137
|
0 |
0 |
if $debug |
|
150
|
1 |
86 |
if (s/\\$// and not eof $handle) |
|
159
|
24 |
62 |
if /^\s*$/ |
|
166
|
3 |
59 |
if (/^\[([^\]]+)\]$/) |
|
168
|
0 |
3 |
if $debug |
|
173
|
59 |
0 |
if (/^([^\s=]+)(?:(?:(?:\s*=\s*)|\s+)(.*))?/) { } |
|
176
|
51 |
8 |
if (defined $value) |
|
178
|
6 |
45 |
if ($value =~ /^([^\s=]+\s*=)?\s*<<(['"]?)(\S+)\2$/) { } |
|
180
|
1 |
5 |
defined $1 ? : |
|
182
|
5 |
11 |
if $_ eq $boundary |
|
197
|
16 |
43 |
if length $prefix |
|
202
|
0 |
59 |
unless ($state->_exists($variable) or $state->set($variable, 1)) |
|
205
|
0 |
0 |
if $pedantic |
|
212
|
2 |
57 |
if ($flag eq '-') { } |
|
|
2 |
55 |
elsif ($flag eq '+') { } |
|
218
|
2 |
0 |
unless defined $value |
|
222
|
33 |
24 |
if ($nargs) { } |
|
223
|
33 |
0 |
if (defined $value and length $value) { } |
|
228
|
0 |
33 |
unless ($self->_expand(\$value, $state->_expand($variable), $prefix)) |
|
230
|
0 |
0 |
if $debug |
|
233
|
0 |
0 |
if $pedantic |
|
239
|
0 |
0 |
if $pedantic |
|
247
|
20 |
4 |
if (defined $value) { } |
|
249
|
5 |
15 |
if $value =~ /off/i |
|
251
|
10 |
10 |
if $value |
|
257
|
0 |
24 |
if $debug |
|
262
|
0 |
57 |
unless ($state->set($variable, $value)) |
|
264
|
0 |
0 |
if $pedantic |
|
278
|
0 |
5 |
$warnings ? : |
|
315
|
0 |
33 |
unless defined $prefix |
|
321
|
6 |
27 |
unless $expand and defined $$value |
|
325
|
2 |
25 |
unless ($sys = $$self{'SYS'}) |
|
330
|
0 |
27 |
if $debug |
|
338
|
25 |
2 |
if ($expand & 1) |
|
345
|
0 |
7 |
defined $1 ? : |
|
348
|
6 |
1 |
if ($state->_exists($var)) { } |
|
|
1 |
0 |
elsif (length $prefix and $state->_exists($prefix . '_' . $var)) { } |
|
353
|
0 |
1 |
if $debug |
|
360
|
0 |
0 |
if ($expand & 8) |
|
376
|
0 |
25 |
if $warnings and $pedantic |
|
384
|
24 |
3 |
if ($expand & 2) |
|
391
|
0 |
2 |
if (defined($var = $1)) { } |
|
393
|
0 |
0 |
if ($sys->can_getpwnam) |
|
402
|
0 |
2 |
unless (defined $val) |
|
404
|
0 |
0 |
if ($expand & 8) |
|
405
|
0 |
0 |
defined $var ? : |
|
419
|
0 |
24 |
if $warnings and $pedantic |
|
427
|
26 |
1 |
if ($expand & 4) |
|
435
|
4 |
0 |
if (exists $ENV{$var}) { } |
|
|
0 |
0 |
elsif ($var eq 'HOME') { } |
|
443
|
0 |
0 |
if ($expand & 8) |
|
456
|
0 |
26 |
if $warnings and $pedantic |
|
460
|
0 |
27 |
if $debug |
|
463
|
0 |
27 |
$warnings ? : |
|
478
|
0 |
0 |
defined $$self{$key} ? : |