| line |
true |
false |
branch |
|
18
|
5 |
35 |
if ($value->{'remove'}) { } |
|
|
4 |
31 |
elsif (exists $env->{$key} and not $value->{'override'}) { } |
|
|
12 |
19 |
elsif (exists $value->{'value'}) { } |
|
|
6 |
13 |
elsif (exists $value->{'env'}) { } |
|
|
2 |
11 |
elsif (exists $value->{'ENV'}) { } |
|
|
11 |
0 |
elsif (exists $value->{'sub'}) { } |
|
75
|
7 |
36 |
unless $ref |
|
76
|
6 |
30 |
if $ref eq 'ARRAY' |
|
77
|
24 |
6 |
if $ref eq 'HASH' |
|
78
|
6 |
0 |
if $ref eq 'CODE' |
|
90
|
3 |
3 |
if @$aref == 0 |
|
92
|
3 |
0 |
if @$aref == 1 |
|
101
|
2 |
8 |
unless $sub = $self->wrap_code($sub) |
|
110
|
6 |
18 |
if exists $hash->{'override'} |
|
112
|
0 |
24 |
if ((my(@keys) = keys %$hash) > 1) |
|
118
|
0 |
24 |
unless my $cb = $self->can('generate_hash_manglers_' . $type) |
|
140
|
6 |
4 |
$type eq 'ENV' ? : |
|
|
5 |
10 |
$type eq 'env' ? : |
|
145
|
7 |
8 |
if ($source->{'flatten'}) |
|
146
|
3 |
4 |
if (ref $svalue eq 'ARRAY') { } |
|
|
0 |
4 |
elsif (ref $svalue eq 'HASH') { } |
|
158
|
1 |
21 |
$doe && !length($_) ? : |
|
|
5 |
22 |
!defined($_) ? : |
|
165
|
23 |
0 |
unless ref $_ |
|
166
|
2 |
13 |
unless @retval |
|
176
|
2 |
58 |
exists $source->{$feature} ? : |
|
179
|
5 |
10 |
unless ref $src{'default'} eq 'ARRAY' |
|
181
|
0 |
15 |
if @{$src{'default'};} > 1 |
|
182
|
0 |
15 |
if keys %$source > 1 |
|
183
|
0 |
15 |
if keys %$source < 1 |
|
186
|
0 |
15 |
unless grep {$_ eq $src{'type'};} 'env', 'ENV', 'value' |
|
199
|
5 |
3 |
unless defined(my $v = $cfg->{$feature}) |
|
200
|
0 |
3 |
if ++$count > 1 |
|
202
|
2 |
1 |
unless ref $v |
|
218
|
2 |
2 |
if (defined $join) { } |
|
|
1 |
1 |
elsif (defined $sprintf) { } |
|
243
|
0 |
5 |
if (ref $value eq 'HASH' and my(@keys) = keys %$value) |
|
252
|
2 |
8 |
unless ref $sub eq 'CODE' |
|
254
|
1 |
6 |
unless defined(my $retval = &$sub(@_)) |
|
255
|
5 |
1 |
unless ref $retval |
|
258
|
0 |
6 |
unless ref $retval eq 'ARRAY' |
|
262
|
0 |
6 |
if ($n == 0) { } |
|
|
6 |
0 |
elsif ($n == 1) { } |
|
280
|
0 |
0 |
if (defined(my $v = $_)) { } |
|
294
|
4 |
5 |
if (exists $self->{'manglers'}) { } |
|
297
|
0 |
4 |
if ref $mangle eq 'HASH' |
|
298
|
0 |
4 |
unless ref $mangle eq 'ARRAY' |
|
300
|
0 |
4 |
if @$mangle % 2 |
|
304
|
4 |
4 |
if $_ ne 'app' |
|
|
0 |
4 |
if grep {$_ ne 'manglers' if $_ ne 'app';} @keys |
|
319
|
0 |
0 |
if @found == 1 |
|
323
|
0 |
0 |
scalar @found ? : |