| line |
true |
false |
branch |
|
15
|
0 |
4 |
unless $self->{'revisors'} |
|
19
|
157 |
9 |
if (defined $def_parts) |
|
21
|
248 |
12 |
defined $_ ? : |
|
25
|
71 |
12 |
exists $vars{$_->{'src'}}{$_->{'key'}} ? : |
|
|
177 |
83 |
!ref($_) ? : |
|
28
|
9 |
148 |
if ($revisor->{'require_all'} and not $all_defs) { } |
|
37
|
21 |
3 |
if not defined $retval or length $retval == 0 and $revisor->{'empty_as_default'} |
|
41
|
0 |
83 |
unless defined $key |
|
44
|
80 |
3 |
if $revisor->{'override'} or not exists $env->{$key} |
|
45
|
18 |
65 |
unless defined $value |
|
63
|
60 |
23 |
unless (ref $spec) |
|
64
|
0 |
60 |
unless @inputs |
|
66
|
24 |
36 |
unless ref $spec eq 'HASH' |
|
71
|
46 |
14 |
unless defined $spec->{'key'} |
|
85
|
0 |
83 |
unless defined $spec->{'key'} |
|
88
|
3 |
80 |
defined $spec->{'start'} ? : |
|
89
|
0 |
83 |
unless length $start |
|
91
|
3 |
80 |
defined $spec->{'stop'} ? : |
|
92
|
0 |
83 |
unless length $stop |
|
94
|
4 |
79 |
defined $spec->{'esc'} ? : |
|
95
|
0 |
83 |
unless length $esc |
|
96
|
0 |
83 |
if substr($esc, 0, 1) eq ' ' |
|
98
|
0 |
83 |
if $esc eq $start or $esc eq $stop |
|
102
|
77 |
6 |
unless exists $m{'override'} |
|
111
|
9 |
157 |
unless defined $template |
|
120
|
94 |
83 |
$i < 0 ? : |
|
122
|
94 |
83 |
if $i < 0 |
|
129
|
0 |
83 |
if $i < 0 |
|
137
|
0 |
83 |
if $src ne 'env' and $src ne 'ENV' |
|
139
|
0 |
83 |
unless defined $key |
|
165
|
10 |
74 |
if $i < 0 |
|
171
|
73 |
1 |
if ($e < 0) |
|
200
|
240 |
14 |
if $dpos < 0 or $epos < 0 or $dpos < $epos |
|
211
|
2 |
0 |
if $pos == $len |
|
228
|
3 |
1 |
exists $self->{'revisors'} ? : |
|
236
|
0 |
4 |
if (scalar keys %$self > 0) |
|
241
|
2 |
2 |
if ref $revisors eq 'HASH' |
|
256
|
0 |
0 |
if (defined(my $v = $_)) { } |