line |
true |
false |
branch |
15
|
0 |
8 |
unless $self->{'revisors'} |
20
|
191 |
15 |
if (ref $retval) |
22
|
299 |
12 |
defined $_ ? : |
26
|
88 |
12 |
exists $vars{$_->{'src'}}{$_->{'key'}} ? : |
|
211 |
100 |
!ref($_) ? : |
29
|
9 |
182 |
$revisor->{'require_all'} && !$all_defs ? : |
37
|
21 |
3 |
if not defined $retval or length $retval == 0 and $revisor->{'empty_as_default'} |
40
|
178 |
28 |
if $revisor->{'cache'} |
45
|
0 |
103 |
unless defined $key |
48
|
100 |
3 |
if $revisor->{'override'} or not exists $env->{$key} |
49
|
18 |
85 |
unless defined $value |
67
|
60 |
33 |
unless (ref $spec) |
68
|
0 |
60 |
unless @inputs |
70
|
24 |
36 |
unless ref $spec eq 'HASH' |
75
|
46 |
14 |
unless defined $spec->{'key'} |
89
|
0 |
93 |
unless defined $spec->{'key'} |
92
|
3 |
90 |
defined $spec->{'start'} ? : |
93
|
0 |
93 |
unless length $start |
95
|
3 |
90 |
defined $spec->{'stop'} ? : |
96
|
0 |
93 |
unless length $stop |
98
|
4 |
89 |
defined $spec->{'esc'} ? : |
99
|
0 |
93 |
unless length $esc |
100
|
0 |
93 |
if substr($esc, 0, 1) eq ' ' |
102
|
0 |
93 |
if $esc eq $start or $esc eq $stop |
106
|
87 |
6 |
unless exists $m{'override'} |
109
|
85 |
8 |
unless exists $m{'cache'} |
116
|
9 |
177 |
unless defined $template |
125
|
104 |
93 |
$i < 0 ? : |
127
|
104 |
93 |
if $i < 0 |
134
|
0 |
93 |
if $i < 0 |
142
|
0 |
93 |
if $src ne 'env' and $src ne 'ENV' |
144
|
0 |
93 |
unless defined $key |
170
|
10 |
84 |
if $i < 0 |
176
|
83 |
1 |
if ($e < 0) |
205
|
270 |
14 |
if $dpos < 0 or $epos < 0 or $dpos < $epos |
216
|
2 |
0 |
if $pos == $len |
230
|
5 |
1 |
unless exists $opts->{'cache'} |
234
|
5 |
1 |
exists $self->{'revisors'} ? : |
242
|
0 |
6 |
if (scalar keys %$self > 0) |
247
|
2 |
4 |
if ref $revisors eq 'HASH' |
262
|
0 |
0 |
if (defined(my $v = $_)) { } |