| line |
true |
false |
branch |
|
52
|
2 |
5 |
unless (@{$self->{'dirs'};}) |
|
57
|
1 |
6 |
exists $params{'interpolate_variables'} ? : |
|
59
|
1 |
6 |
exists $params{'process_directives'} ? : |
|
79
|
7 |
9 |
if (@_) |
|
93
|
1 |
9 |
if ($self->{'export_env'}) |
|
112
|
0 |
63 |
unless defined $config_section |
|
114
|
2 |
61 |
if (ref $config_section eq 'HASH') { } |
|
126
|
0 |
68 |
if -d $file_path |
|
128
|
1 |
67 |
unless ($file_path =~ /\.([^.]+)$/) |
|
136
|
1 |
66 |
unless (defined $file_type) |
|
141
|
4 |
62 |
unless (-e $file_path) |
|
152
|
2 |
60 |
if ($@) |
|
167
|
1 |
56 |
if (@not_found) |
|
188
|
0 |
21 |
unless open my $fh, '<', $file_path |
|
199
|
6 |
907 |
if &readonly($_[0]) |
|
203
|
261 |
645 |
if (my $node_addr = &refaddr($_[0])) |
|
204
|
19 |
242 |
if $self->{'_seen_nodes'}{$node_addr} |
|
209
|
169 |
718 |
if (ref $_[0] eq 'HASH') { } |
|
|
73 |
645 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
228
|
0 |
1036 |
unless defined $node |
|
230
|
648 |
388 |
if (not ref $node and $self->{'interpolate_variables'}) { } |
|
|
195 |
193 |
elsif (ref $node eq 'HASH' and $self->{'process_directives'}) { } |
|
232
|
2 |
83 |
$2 ? : |
|
235
|
35 |
160 |
if (defined $node->{'var'}) { } |
|
|
14 |
146 |
elsif (defined $node->{'include'}) { } |
|
242
|
18 |
128 |
if (defined $node->{'underlay'}) |
|
248
|
15 |
131 |
if (defined $node->{'overlay'}) |
|
264
|
18 |
15 |
if (ref $layer eq 'HASH') { } |
|
|
11 |
4 |
elsif (ref $layer eq 'ARRAY') { } |
|
288
|
10 |
108 |
if ($name =~ /^\./) { } |
|
297
|
10 |
14 |
if length $token > 0 |
|
301
|
0 |
14 |
unless @tokens |
|
302
|
0 |
14 |
unless @{$ancs;} |
|
311
|
0 |
10 |
if ($@) |
|
319
|
83 |
25 |
unless (defined $vars->{$name}) |
|
326
|
1 |
82 |
if ($@) |
|
345
|
0 |
93 |
unless @{$tokens;} |
|
354
|
205 |
35 |
if (ref $node eq 'HASH') { } |
|
355
|
7 |
198 |
unless defined $node->{$token} |
|
359
|
55 |
143 |
unless (@{$tokens;}) |
|
366
|
0 |
143 |
unless ref $node->{$token} |
|
371
|
1 |
34 |
if ($token =~ /\D/) |
|
375
|
2 |
32 |
unless defined $node->[$token] |
|
379
|
28 |
4 |
unless (@{$tokens;}) |
|
386
|
0 |
4 |
unless ref $node->[$token] |