Branch Coverage

blib/lib/B/Utils.pm
Criterion Covered Total %
branch 59 126 46.8


line true false branch
87 0 8 if $@
142 0 0 $name eq 'null' && $targ ? :
156 0 34182 unless defined wantarray
159 29758 4424 if (ref $op and $$op and $op->flags & 4) { }
166 148 4276 $op->can('first') ? :
148 4276 $op->can('last') ? :
0 4424 $op->can('other') ? :
200 220 8627 if $cx =~ /\b$$op\b/
203 91 7964 if ($$_ == $$target)
250 0 0 if ${$_[0];} != $$node
383 0 0 @_ == 1 && ref $_[0] eq 'HASH' ? :
390 0 0 if $op->can($attr)
394 0 0 if (!defined($recursion_limit) || $recursion_limit > 0 and ref $op and $$op and $op->flags & 4)
399 0 0 if defined $recursion_limit
407 0 0 if exists $$opt{'max_recursion_depth'}
444 1 1 wantarray ? :
445 1 2 wantarray ? :
456 1 1 wantarray ? :
480 3 5 if $subs_cached
502 4 71 'CV' eq class($_) ? :
525 2789 6106 unless $$cv
536 3258 2848 if ($cv->can('PADLIST') and $cv->PADLIST->can('ARRAY') and $cv->PADLIST->ARRAY->can('ARRAY'))
540 230 42776 'CV' eq class($_) ? :
551 0 6106 unless my $start = $cv->START and my $root = $cv->ROOT
600 0 54159 if $$visited{$$op}++
602 5095 49064 if (ref $op and $op->isa('B::COP'))
608 568 53591 if $op->isa('B::NULL')
609 25464 28127 if ($op->flags & 4)
615 323 53268 if ($op->isa('B::PMOP'))
617 13 310 if (ref $maybe_root and $maybe_root->isa('B::OP'))
649 5204 49872 if ($op->isa('B::COP'))
654 0 55076 if &$filter($op)
656 25901 29175 if (ref $op and $$op and $op->flags & 4)
836 0 55076 unless defined wantarray
839 0 55076 if 'ARRAY' eq ref $conds_ref
845 0 55076 exists $$conds_ref{'disjunction'} ? :
849 568 54508 unless ref $op and $$op
858 0 54508 if (exists $$condition{'disjunction'})
867 0 54508 if (exists $$condition{'dump'})
876 0 54508 unless (defined $condition)
877 0 0 unless defined $op or wantarray
882 0 54508 if ($$condition{'capture'})
908 0 54508 unless exists $$condition{$test}
911 0 54508 if ('ARRAY' eq ref $$condition{$test}) { }
0 54508 elsif ('CODE' eq ref $$condition{$test}) { }
914 0 0 if ('!' eq $$condition{$test}[0]) { }
930 0 0 unless $okay
935 0 0 unless $$condition{$test}($op)
941 54508 0 unless $$condition{$test} eq $op->$test
952 0 0 unless exists $$condition{$_}
954 0 0 unless $result
956 0 0 unless (blessed $result)
963 0 0 if (exists $$condition{'kids'})
967 0 0 unless @{$kidconditions;} == @{$$condition{'kids'};}
971 0 0 unless defined $$kidconditions[$kidno]
974 0 0 unless $result
976 0 0 unless (blessed $result)
984 0 0 if (wantarray) { }
0 0 elsif (defined wantarray) { }
985 0 0 if (keys %$capture) { }
1011 0 0 ref $_ ? :
1106 0 0 unless $args
1107 0 0 if ("\n" ne substr($args, -1, 1))