| line |
true |
false |
branch |
|
173
|
0 |
12 |
ref $cl ? : |
|
178
|
0 |
12 |
if (defined $$self{'_valid_directives'} and defined $$self{'_root_directive'}) |
|
194
|
1 |
15 |
unless defined $source |
|
196
|
13 |
2 |
unless (file_name_is_absolute($source)) |
|
204
|
4 |
11 |
defined $root ? : |
|
256
|
0 |
10 |
if (defined $source and ref $source eq 'SCALAR') { } |
|
|
0 |
10 |
elsif (defined $source and ref($source) =~ /GLOB|IO::File/) { } |
|
266
|
0 |
10 |
unless my $fh = 'IO::File'->new($$self{'_source'}, 'r') |
|
276
|
1 |
9 |
unless (defined $result) |
|
284
|
2 |
7 |
if $$self{'_expand_vars'} |
|
300
|
1 |
3 |
if (-d $file) { } |
|
|
3 |
0 |
elsif (-r $file) { } |
|
302
|
0 |
1 |
unless opendir INCD, $file |
|
310
|
0 |
3 |
if (not $fh) { } |
|
338
|
60 |
7 |
unless defined $valids |
|
339
|
7 |
0 |
$$self{'_ignore_case'} ? : |
|
340
|
6 |
1 |
if grep {$key =~ qr/$temp$_/;} @$valids |
|
348
|
50 |
9 |
if $$self{'_ignore_case'} |
|
349
|
1 |
58 |
unless $self->_validateKey($dir, $$self{'_valid_directives'}) |
|
351
|
0 |
58 |
if (defined $$self{'_root_directive'} and $$self{'_root_directive'} eq $dir) |
|
362
|
7 |
1 |
if $$self{'_ignore_case'} |
|
363
|
0 |
8 |
unless $self->_validateKey($block, $$self{'_valid_blocks'}) |
|
365
|
8 |
0 |
if (defined $vals and @$vals) |
|
368
|
7 |
1 |
if $$self{'_ignore_case'} |
|
380
|
8 |
0 |
if (@{$$self{'_previous_blocks'};}) |
|
411
|
5 |
0 |
$$self{'_ignore_case'} ? : |
|
413
|
0 |
5 |
unless (@lval) |
|
419
|
3 |
2 |
if ($type eq '$') { } |
|
|
2 |
0 |
elsif ($type eq '@') { } |
|
425
|
1 |
1 |
if ($$data{$key}[$i] =~ /^$pattern$/) { } |
|
488
|
0 |
58 |
unless defined wantarray |
|
490
|
5 |
53 |
unless (defined $key) |
|
496
|
41 |
12 |
if $$self{'_ignore_case'} |
|
497
|
1 |
52 |
if ref $$data{$key} eq 'HASH' |
|
499
|
47 |
5 |
if (exists $$data{$key}) { } |
|
|
3 |
2 |
elsif ($$self{'_inherit_vals'} and exists $$self{'_parent'}) { } |
|
501
|
35 |
12 |
if (scalar @{$$data{$key};} == 1) { } |
|
507
|
10 |
2 |
wantarray ? : |
|
512
|
2 |
1 |
wantarray ? : |
|
516
|
0 |
2 |
wantarray ? : |
|
580
|
1 |
5 |
unless (defined $type) |
|
586
|
0 |
5 |
unless ref $$data{$type} eq 'HASH' |
|
588
|
1 |
4 |
unless (defined $key) |
|
594
|
0 |
4 |
unless exists $$data{$type}{$key} |
|
622
|
3 |
1 |
if ($$self{'_inherit_vals'}) |
|
629
|
2 |
2 |
if $$self{'_expand_vars'} |