Branch Coverage

blib/lib/Sub/Defer.pm
Criterion Covered Total %
branch 52 54 100.0


line true false branch
25 1 2 eval { do { require Sub::Name } } && defined &Sub::Name::subname ? :
1 3 eval { do { require Sub::Util } } && defined &Sub::Util::set_subname ? :
1 4 defined &Sub::Name::subname ? :
8 5 defined &Sub::Util::set_subname ? :
26 2 11 $no_subname ? :
30 4 22 if @_ > 2
37 3 23 if (*{$glob;}{'CODE'}) { }
75 12 86 unless my $info = $DEFERRED{$deferred}
78 2 12 unless ($deferred_sub and $deferred eq $deferred_sub or ${$undeferred_ref;} and $deferred eq ${$undeferred_ref;})
86 22 62 if ${$undeferred_ref;}
90 28 33 if (defined $target and $deferred eq *{_getglob($target);}{"CODE"} or "")
114 52 10 if $name
121 8 18 unless my $info = $DEFERRED{$deferred or ""}
124 6 6 unless ($deferred_sub and $deferred eq $deferred_sub or ${$undeferred_ref;} and $deferred eq ${$undeferred_ref;})
132 8 4 $undeferred_ref && $$undeferred_ref ? :
141 36 62 if $target
145 88 7 unless $options and $options->{'attributes'}
146 7 88 if (@attributes)
153 15 78 if (@attributes or $target and !1) { }
154 12 3 $target ? :
12 3 $target ? :
171 0 15 unless eval $code
173 0 15 if defined $e
181 21 57 if $target
193 86 6 $_->[3] && ${$_->[3];} ? :
72 92 $_->[4] ? :
164 24 defined $_ ? :