Condition Coverage

blib/lib/Sub/Defer.pm
Criterion Covered Total %
condition 49 63 77.7


and 2 conditions

line l !l condition
153 57 31 $target and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.

and 3 conditions

line !l l&&!r l&&r condition
25 3 0 1 eval { do { require Sub::Util } } && defined &Sub::Util::set_subname
2 0 1 eval { do { require Sub::Name } } && defined &Sub::Name::subname
78 14 0 72 $deferred_sub and $deferred eq $deferred_sub
2 0 12 ${$undeferred_ref;} and $deferred eq ${$undeferred_ref;}
90 31 2 28 defined $target and $deferred eq *{_getglob($target);}{"CODE"}
113 2 8 52 $DEFERRED{$_} && $DEFERRED{$_}[0]
124 12 0 6 $deferred_sub and $deferred eq $deferred_sub
6 0 6 ${$undeferred_ref;} and $deferred eq ${$undeferred_ref;}
132 0 4 8 $undeferred_ref && $$undeferred_ref
145 42 46 7 $options and $options->{'attributes'}
193 0 6 86 $_->[3] && ${$_->[3];}

or 2 conditions

line l !l condition
90 28 33 defined $target and $deferred eq *{_getglob($target);}{"CODE"} or ""
121 24 2 $deferred or ""
141 33 3 0 ($package, $subname) = $target =~ /^(.*)::([^:]+)$/ or croak("$target is not a fully qualified sub name!")

or 3 conditions

line l !l&&r !l&&!r condition
78 72 12 2 $deferred_sub and $deferred eq $deferred_sub or ${$undeferred_ref;} and $deferred eq ${$undeferred_ref;}
124 6 12 0 $deferred_sub and $deferred eq $deferred_sub or ${$undeferred_ref;} and $deferred eq ${$undeferred_ref;}
144 35 27 0 $options && $options->{'package'} || caller
33 62 0 $package ||= $options && $options->{'package'} || caller
148 5 2 0 /\A\w+(?:\(.*\))?\z/s or croak("invalid attribute $_")
153 5 10 78 @attributes or $target and Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
178 4 33 0 $undeferred ||= undefer_sub($deferred_info->[4])