| line |
true |
false |
branch |
|
35
|
10 |
0 |
unless grep {$_ eq $lib;} @INC |
|
43
|
1 |
4 |
@_ == 1 ? : |
|
|
0 |
5 |
@_ > 1 ? : |
|
49
|
0 |
5 |
if ($root_dir eq '/') { } |
|
|
5 |
0 |
elsif (-f $config_file) { } |
|
70
|
1 |
4 |
if $error |
|
79
|
1 |
15 |
if not $no_singleton and $singleton |
|
86
|
14 |
1 |
if ($location) { } |
|
102
|
0 |
1 |
if ($error) { } |
|
103
|
0 |
0 |
if substr($error, 0, 15) ne "Failed to find " |
|
112
|
0 |
1 |
unless $success |
|
116
|
4 |
10 |
unless $no_singleton |
|
118
|
1 |
13 |
if (my $libs = $self->get("libs")) |
|
119
|
1 |
0 |
ref $libs eq 'ARRAY' ? : |
|
152
|
0 |
1 |
$error ? : |
|
169
|
1 |
26 |
unless $raw_config |
|
171
|
26 |
0 |
if $root_dir |
|
173
|
1 |
25 |
ref $location ? : |
|
174
|
1 |
25 |
if (grep {$_ eq $include;} @{$$conf{'config_app'}{'includes'};}) { } |
|
178
|
0 |
1 |
ref $location ? : |
|
189
|
24 |
24 |
$_[0] ? : |
|
192
|
3 |
45 |
if $set->{$include} |
|
193
|
7 |
41 |
if $conf->{$include} |
|
194
|
0 |
48 |
if $set->{$optional} |
|
195
|
2 |
46 |
if $conf->{$optional} |
|
227
|
2 |
25 |
if (ref $location) |
|
232
|
0 |
27 |
if ('URI'->new($location)->scheme) { } |
|
241
|
0 |
0 |
if ($res->is_success) { } |
|
245
|
0 |
0 |
if ($optional) { } |
|
259
|
26 |
1 |
if (-f $config_file) { } |
|
260
|
1 |
0 |
if ($optional) { } |
|
268
|
0 |
26 |
unless open my $config_fh, "<", $config_file |
|
277
|
0 |
32 |
if "URI"->new($location)->scheme or substr($location, 0, 1) eq "/" |
|
284
|
31 |
36 |
if -f $config_file |
|
298
|
19 |
6 |
if ($location =~ /\.yaml$/ or $location =~ /\.yml$/) { } |
|
|
5 |
1 |
elsif ($location =~ /\.json$/ or $location =~ /\.js$/) { } |
|
310
|
5 |
20 |
if ($type eq 'json') { } |
|
328
|
1 |
24 |
if ($error) |
|
333
|
1 |
0 |
unless $config |
|
337
|
24 |
0 |
if $config |
|
346
|
0 |
36 |
unless $source |
|
348
|
33 |
0 |
if (not $is_deep_call and ref $merge eq "HASH" and ref $source eq "HASH") |
|
349
|
3 |
30 |
if (my $libs = delete $source->{'libs'}) |
|
350
|
1 |
2 |
if (not exists $merge->{'libs'}) { } |
|
|
1 |
1 |
elsif (ref $merge->{'libs'} eq 'ARRAY') { } |
|
354
|
0 |
1 |
ref $libs eq 'ARRAY' ? : |
|
358
|
1 |
0 |
ref $libs eq 'ARRAY' ? : |
|
364
|
36 |
0 |
if (ref $merge eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $merge eq 'ARRAY') { } |
|
366
|
3 |
50 |
if (exists $merge->{$key} and ref $merge->{$key} eq 'HASH' and ref $source->{$key} eq 'HASH') { } |