Branch Coverage

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


line true false branch
142 0 66 @_ > 1 ? :
149 0 14 unless $name
151 14 0 unless (code($wrap))
159 13 0 if ($id and $obj = $hints{$id})
160 1 12 if (my $meth = $$obj->can($name))
161 1 0 if defined $proto
168 1 11 if (code($qname))
169 1 0 if defined $proto
174 0 11 if ($@)
180 2 9 wantarray ? :
192 0 47 unless $name
193 33 14 unless defined $proto
195 4 10 unless (code($wrap))
201 13 1 if ($id and $obj = $hints{$id})
202 0 13 if (my $meth = $$obj->can($name))
210 14 0 if code($qname)
213 0 0 if ($@)
235 27 3 if ($id and $obj = $hints{$id})
236 18 9 if (my $meth = $$obj->can($name))
243 10 2 if code($name)
246 2 0 if ($@)
256 1 6 unless defined $_[1] and ref $_[1]
264 0 143 if $status < 0
265 12 131 unless defined $^H{'with'} and $^H{'with'} == $id
266 4 127 if (/^__(?:DATA)__\r?$/ or /\b(?:use|no)\s+with\b/)
274 4 8 unless $count
278 166 174 if (ref $_) { }
0 174 elsif ($instr) { }
283 166 174 ref $_ ? :
290 14 47 exists $core{$1} ? :
30 61 $skip{$1} ? :
295 4 4 if defined $lastline