| 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 |
|
151
|
1 |
86 |
if (s/\\$// and not eof $handle) |
|
160
|
24 |
62 |
if /^\s*$/ |
|
167
|
3 |
59 |
if (/^\[([^\]]+)\]$/) |
|
169
|
0 |
3 |
if $debug |
|
174
|
59 |
0 |
if (/^([^\s=]+)(?:(?:(?:\s*=\s*)|\s+)(.*))?/) { } |
|
177
|
51 |
8 |
if (defined $value) |
|
179
|
6 |
45 |
if ($value =~ /^([^\s=]+\s*=)?\s*<<(['"]?)(\S+)\2$/) { } |
|
181
|
1 |
5 |
defined $1 ? : |
|
183
|
5 |
11 |
if $_ eq $boundary |
|
198
|
16 |
43 |
if length $prefix |
|
203
|
0 |
59 |
unless ($state->_exists($variable) or $state->set($variable, 1)) |
|
206
|
0 |
0 |
if $pedantic |
|
213
|
2 |
57 |
if ($flag eq '-') { } |
|
|
2 |
55 |
elsif ($flag eq '+') { } |
|
219
|
2 |
0 |
unless defined $value |
|
223
|
33 |
24 |
if ($nargs) { } |
|
224
|
33 |
0 |
if (defined $value and length $value) { } |
|
229
|
0 |
33 |
unless ($self->_expand(\$value, $state->_expand($variable), $prefix)) |
|
231
|
0 |
0 |
if $debug |
|
234
|
0 |
0 |
if $pedantic |
|
240
|
0 |
0 |
if $pedantic |
|
248
|
20 |
4 |
if (defined $value) { } |
|
250
|
5 |
15 |
if $value =~ /off/i |
|
252
|
10 |
10 |
if $value |
|
258
|
0 |
24 |
if $debug |
|
263
|
0 |
57 |
unless ($state->set($variable, $value)) |
|
265
|
0 |
0 |
if $pedantic |
|
279
|
0 |
5 |
$warnings ? : |
|
316
|
0 |
33 |
unless defined $prefix |
|
322
|
6 |
27 |
unless $expand and defined $$value |
|
326
|
2 |
25 |
unless ($sys = $$self{'SYS'}) |
|
331
|
0 |
27 |
if $debug |
|
339
|
25 |
2 |
if ($expand & 1) |
|
346
|
0 |
7 |
defined $1 ? : |
|
349
|
6 |
1 |
if ($state->_exists($var)) { } |
|
|
1 |
0 |
elsif (length $prefix and $state->_exists($prefix . '_' . $var)) { } |
|
354
|
0 |
1 |
if $debug |
|
361
|
0 |
0 |
if ($expand & 8) |
|
377
|
0 |
25 |
if $warnings and $pedantic |
|
385
|
24 |
3 |
if ($expand & 2) |
|
392
|
0 |
2 |
if (defined($var = $1)) { } |
|
394
|
0 |
0 |
if ($sys->can_getpwnam) |
|
403
|
0 |
2 |
unless (defined $val) |
|
405
|
0 |
0 |
if ($expand & 8) |
|
406
|
0 |
0 |
defined $var ? : |
|
420
|
0 |
24 |
if $warnings and $pedantic |
|
428
|
26 |
1 |
if ($expand & 4) |
|
436
|
4 |
0 |
if (exists $ENV{$var}) { } |
|
|
0 |
0 |
elsif ($var eq 'HOME') { } |
|
444
|
0 |
0 |
if ($expand & 8) |
|
457
|
0 |
26 |
if $warnings and $pedantic |
|
461
|
0 |
27 |
if $debug |
|
464
|
0 |
27 |
$warnings ? : |
|
479
|
0 |
0 |
defined $$self{$key} ? : |