Branch Coverage

blib/lib/with.pm
Criterion Covered Total %
branch 49 64 76.5


line true false branch
150 0 66 @_ > 1 ? :
157 0 14 unless $name
159 14 0 unless (code($wrap))
167 13 0 if ($id and $obj = $hints{$id})
168 1 12 if (my $meth = $$obj->can($name))
169 1 0 if defined $proto
176 1 11 if (code($qname))
177 1 0 if defined $proto
182 0 11 if ($@)
188 2 9 wantarray ? :
200 0 47 unless $name
201 33 14 unless defined $proto
203 4 10 unless (code($wrap))
209 13 1 if ($id and $obj = $hints{$id})
210 0 13 if (my $meth = $$obj->can($name))
218 14 0 if code($qname)
221 0 0 if ($@)
243 27 3 if ($id and $obj = $hints{$id})
244 18 9 if (my $meth = $$obj->can($name))
251 10 2 if code($name)
254 2 0 if ($@)
264 1 6 unless defined $_[1] and ref $_[1]
272 0 143 if $status < 0
273 12 131 unless defined $^H{'with'} and $^H{'with'} == $id
274 4 127 if (/^__(?:DATA)__\r?$/ or /\b(?:use|no)\s+with\b/)
282 4 8 unless $count
286 166 174 if (ref $_) { }
0 174 elsif ($instr) { }
292 166 174 ref $_ ? :
299 14 47 exists $core{$1} ? :
30 61 $skip{$1} ? :
303 4 4 if defined $lastline