Branch Coverage

blib/lib/Kelp/Util.pm
Criterion Covered Total %
branch 54 68 79.4


line true false branch
30 909 0 unless $env
31 0 0 unless grep {lc $env eq $_;} 1, "all", lc $stage
35 0 0 if (ref $_) { }
44 4 198 unless $string
46 6 192 defined $string && $string =~ s/^(\+)// ? :
47 6 192 if $sigil
50 71 127 if (not $string =~ /#/) { }
59 24 103 if $class_only
66 103 24 unless $class_only
70 81 117 if $base
77 1 127 unless $string
79 109 18 if ($string =~ /^(.+)::(\w+)$/ and $1 ne "main")
89 1 107 unless $string
91 106 1 if ($string =~ /^(.+)::(\w+)$/)
101 236 68 &Encode::find_encoding($this_charset) ? :
108 1 241 unless $charset
116 1 616 unless $charset
124 0 5 unless ref $app eq "CODE"
137 4 7 $orig_path =~ m[/$] ? :
153 11 0 if (ref $result eq 'ARRAY') { }
0 0 elsif (ref $result eq 'CODE') { }
157 11 0 if $status
158 11 0 if $headers
159 11 0 if $body
178 293 74 unless "Class::Inspector"->loaded($package)
187 0 160 $allow_blessed ? :
189 17 143 if not &$ref($a) && &$ref($b) or &$ref($a) ne &$ref($b)
194 44 99 if (&$ref($a) eq 'ARRAY') { }
99 0 elsif (&$ref($a) eq 'HASH') { }
195 11 33 unless $sigil
196 5 28 if ($sigil eq '+') { }
198 6 5 unless grep {eq_deeply($_, $e);} @$a
215 33 77 &$ref($b->{$k}) eq 'ARRAY' && $k =~ s/^(\+|\-)// ? :
220 86 24 exists $a->{$k} ? :