Branch Coverage

blib/lib/Plack/Middleware/ReviseEnv.pm
Criterion Covered Total %
branch 66 82 80.4


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 = $_)) { }