| line |
true |
false |
branch |
|
38
|
1 |
6 |
ref $_[-1] eq 'HASH' ? : |
|
57
|
7 |
0 |
if ($file) |
|
58
|
0 |
7 |
unless $self->load($file) |
|
68
|
0 |
7 |
unless ($file) |
|
77
|
0 |
7 |
unless (chdir $$self{'attr'}{'dir'}) |
|
91
|
0 |
15 |
if $files[0]{'pos'} == -1 |
|
93
|
0 |
15 |
unless (my $fh = 'FileHandle'->new($file)) |
|
107
|
7 |
30 |
if /^\s*\#|^\s*$/ |
|
111
|
4 |
26 |
if (/^\s*%include\s+(.*)/) |
|
112
|
0 |
4 |
if (exists $files{$1}) |
|
123
|
0 |
26 |
unless ($self->_parsepair($_)) |
|
139
|
0 |
7 |
unless (chdir $cwd) |
|
152
|
0 |
0 |
unless defined $attr |
|
155
|
0 |
0 |
if ($$attr{'Exists'} and $keyword = ($self->_splitpair($_))[0] and not $self->_exists($keyword)) |
|
163
|
0 |
0 |
unless ($self->_parsepair($_)) |
|
176
|
0 |
26 |
unless defined $keyword and defined $value |
|
178
|
2 |
24 |
if ($keyword =~ /\{/) { } |
|
180
|
2 |
2 |
substr($_, 0, 1) ne '{' ? : |
|
204
|
0 |
19 |
unless ($keyword) |
|
209
|
17 |
2 |
if exists $$self{'abs'}{$keyword} |
|
213
|
2 |
1 |
if $keyword =~ /$$_[0]/ |
|
216
|
0 |
0 |
if defined $$self{'attr'}{'UNDEF'} |
|
234
|
0 |
0 |
unless ($keyword) |
|
239
|
0 |
0 |
if (exists $$self{'abs'}{$keyword}) { } |
|
251
|
0 |
0 |
unless ($keyword) |
|
262
|
0 |
0 |
if exists $$self{'abs'}{$keyword} |
|
265
|
0 |
0 |
if $keyword =~ /$$_[0]/ |
|
278
|
0 |
0 |
unless (exists $$self{'attr'}{$key}) |
|
298
|
0 |
0 |
if ($$self{'attr'}{'PrintError'}) |
|
299
|
0 |
0 |
if (ref $$self{'attr'}{'PrintError'} eq 'CODE') { } |
|
339
|
0 |
1 |
if $keyword eq 'DESTROY' |
|
341
|
1 |
0 |
if (exists $$self{'abs'}{$keyword}) { } |
|
347
|
0 |
0 |
if $keyword =~ /$$_[0]/ |
|
350
|
0 |
0 |
unless ($found) |
|
351
|
0 |
0 |
if defined $$self{'attr'}{'UNDEF'} |
|
360
|
0 |
1 |
if defined($newval = shift()) |
|
375
|
2 |
0 |
defined $ENV{$1} ? : |
|
|
2 |
28 |
if $value =~ s/\$\{(\w+)\}/defined $ENV{$1} ? $ENV{$1} : '';/eg |
|
379
|
6 |
24 |
if $value =~ s/\$\((\w+)\)/defined $$self{'abs'}{$1} ? $$self{'abs'}{$1} : '';/egx |
|
380
|
6 |
0 |
defined $$self{'abs'}{$1} ? : |
|
387
|
2 |
28 |
if $value =~ s/\$(\w+)/defined $$self{'abs'}{$1} ? $$self{'abs'}{$1} : (defined $ENV{$1} ? $ENV{$1} : "\$$1");/egx |
|
388
|
1 |
0 |
defined $ENV{$1} ? : |
|
|
1 |
1 |
defined $$self{'abs'}{$1} ? : |
|
405
|
0 |
0 |
2 != (($keyword, $value) = $pair =~ /([^=\s]*)\s*=\s*(.*)/) ? : |
|
419
|
0 |
26 |
if 2 != (($keyword, $value) = $pair =~ /([^=\s]*)\s*=\s*(.*)/) |