| line |
true |
false |
branch |
|
77
|
2 |
483 |
unless $path
|
|
81
|
631 |
1 |
if (ref $val eq 'HASH') { }
|
|
101
|
0 |
34 |
unless (defined $text)
|
|
121
|
1 |
33 |
if $error
|
|
122
|
1 |
32 |
unless ref $hash eq 'HASH'
|
|
132
|
85 |
12 |
ref $self->path ? :
|
|
134
|
70 |
280 |
unless defined $path
|
|
136
|
35 |
245 |
if -r $filename
|
|
140
|
62 |
35 |
unless ($filename)
|
|
141
|
0 |
62 |
if ($ENV{'KELP_CONFIG_WARN'})
|
|
142
|
0 |
0 |
$mode eq 'config' ? :
|
|
177
|
6 |
40 |
if (my $extra = delete $args{'extra'})
|
|
178
|
5 |
1 |
if ref $extra eq 'HASH'
|
|
210
|
14 |
125 |
if not ref $a && ref $b or ref $a ne ref $b
|
|
215
|
41 |
84 |
if (ref $a eq 'ARRAY') { }
|
|
|
84 |
0 |
elsif (ref $a eq 'HASH') { }
|
|
216
|
11 |
30 |
unless $sigil
|
|
217
|
5 |
25 |
if ($sigil eq '+') { }
|
|
219
|
6 |
5 |
unless grep {eq_deeply($_, $e);} @$a
|
|
236
|
30 |
63 |
ref $b->{$k} eq 'ARRAY' && $k =~ s/^(\+|\-)// ? :
|
|
241
|
73 |
20 |
exists $a->{$k} ? :
|