| line |
true |
false |
branch |
|
30
|
2 |
5 |
unless (@{$self->{'dirs'};}) |
|
35
|
1 |
6 |
exists $params{'interpolate_variables'} ? : |
|
37
|
1 |
6 |
exists $params{'process_directives'} ? : |
|
78
|
7 |
9 |
if (@_) |
|
92
|
1 |
9 |
if ($self->{'export_env'}) |
|
111
|
0 |
66 |
unless defined $config_section |
|
113
|
2 |
64 |
if (ref $config_section eq 'HASH') { } |
|
125
|
0 |
73 |
if -d $file_path |
|
127
|
1 |
72 |
unless ($file_path =~ /\.([^.]+)$/) |
|
135
|
1 |
71 |
unless (defined $file_type) |
|
140
|
4 |
67 |
unless (-e $file_path) |
|
151
|
2 |
65 |
if ($@) |
|
166
|
1 |
59 |
if (@not_found) |
|
187
|
0 |
23 |
unless open my $fh, '<', $file_path |
|
198
|
6 |
961 |
if &readonly($_[0]) |
|
202
|
267 |
693 |
if (my $node_addr = &refaddr($_[0])) |
|
203
|
9 |
258 |
if $self->{'_seen_nodes'}{$node_addr} |
|
208
|
175 |
776 |
if (ref $_[0] eq 'HASH') { } |
|
|
83 |
693 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
227
|
0 |
1090 |
unless defined $node |
|
229
|
696 |
394 |
if (not ref $node and $self->{'interpolate_variables'}) { } |
|
|
198 |
196 |
elsif (ref $node eq 'HASH' and $self->{'process_directives'}) { } |
|
231
|
2 |
83 |
$2 ? : |
|
234
|
35 |
163 |
if (defined $node->{'var'}) { } |
|
|
17 |
146 |
elsif (defined $node->{'include'}) { } |
|
241
|
18 |
128 |
if (defined $node->{'underlay'}) |
|
247
|
15 |
131 |
if (defined $node->{'overlay'}) |
|
263
|
18 |
15 |
if (ref $layer eq 'HASH') { } |
|
|
11 |
4 |
elsif (ref $layer eq 'ARRAY') { } |
|
287
|
10 |
108 |
if ($name =~ /^\./) { } |
|
296
|
10 |
14 |
if length $token > 0 |
|
300
|
0 |
14 |
unless @tokens |
|
301
|
0 |
14 |
unless @{$ancs;} |
|
310
|
0 |
10 |
if ($@) |
|
318
|
83 |
25 |
unless (defined $vars->{$name}) |
|
325
|
1 |
82 |
if ($@) |
|
344
|
0 |
93 |
unless @{$tokens;} |
|
353
|
205 |
35 |
if (ref $node eq 'HASH') { } |
|
354
|
7 |
198 |
unless defined $node->{$token} |
|
358
|
55 |
143 |
unless (@{$tokens;}) |
|
365
|
0 |
143 |
unless ref $node->{$token} |
|
370
|
1 |
34 |
if ($token =~ /\D/) |
|
374
|
2 |
32 |
unless defined $node->[$token] |
|
378
|
28 |
4 |
unless (@{$tokens;}) |
|
385
|
0 |
4 |
unless ref $node->[$token] |