| line |
true |
false |
branch |
|
85
|
0 |
8 |
if $@
|
|
140
|
0 |
0 |
$name eq 'null' && $targ ? :
|
|
154
|
0 |
33418 |
unless defined wantarray
|
|
157
|
28994 |
4424 |
if (ref $op and $$op and $op->flags & 4) { }
|
|
164
|
148 |
4276 |
$op->can('first') ? :
|
|
|
148 |
4276 |
$op->can('last') ? :
|
|
|
0 |
4424 |
$op->can('other') ? :
|
|
192
|
0 |
8 |
if (not $] >= 5.021002 && exists &B::OP::parent) { }
|
|
208
|
8 |
0 |
if ($] >= 5.021002)
|
|
220
|
220 |
8627 |
if $cx =~ /\b$$op\b/
|
|
223
|
91 |
7964 |
if ($$_ == $$target)
|
|
270
|
0 |
0 |
if ${$_[0];} != $$node
|
|
403
|
0 |
0 |
@_ == 1 && ref $_[0] eq 'HASH' ? :
|
|
410
|
0 |
0 |
if $op->can($attr)
|
|
414
|
0 |
0 |
if (!defined($recursion_limit) || $recursion_limit > 0 and ref $op and $$op and $op->flags & 4)
|
|
419
|
0 |
0 |
if defined $recursion_limit
|
|
428
|
0 |
0 |
if exists $opt->{'max_recursion_depth'}
|
|
464
|
1 |
1 |
wantarray ? :
|
|
465
|
1 |
2 |
wantarray ? :
|
|
476
|
1 |
1 |
wantarray ? :
|
|
500
|
3 |
5 |
if $subs_cached
|
|
522
|
4 |
46 |
'CV' eq class($_) ? :
|
|
545
|
2804 |
6178 |
unless $$cv
|
|
556
|
3275 |
2903 |
if ($cv->can('PADLIST') and $cv->PADLIST->can('ARRAY') and $cv->PADLIST->ARRAY->can('ARRAY'))
|
|
560
|
230 |
41619 |
'CV' eq class($_) ? :
|
|
571
|
0 |
6178 |
unless my $start = $cv->START and my $root = $cv->ROOT
|
|
620
|
0 |
51705 |
if $$visited{$$op}++
|
|
622
|
5520 |
46185 |
if (ref $op and $op->isa('B::COP'))
|
|
628
|
579 |
51126 |
if $op->isa('B::NULL')
|
|
629
|
24700 |
26426 |
if ($op->flags & 4)
|
|
635
|
321 |
50805 |
if ($op->isa('B::PMOP'))
|
|
637
|
13 |
308 |
if (ref $maybe_root and $maybe_root->isa('B::OP'))
|
|
669
|
5667 |
47211 |
if ($op->isa('B::COP'))
|
|
674
|
0 |
52878 |
if &$filter($op)
|
|
676
|
25273 |
27605 |
if (ref $op and $$op and $op->flags & 4)
|
|
856
|
0 |
52878 |
unless defined wantarray
|
|
859
|
0 |
52878 |
if 'ARRAY' eq ref $conds_ref
|
|
865
|
0 |
52878 |
exists $conds_ref->{'disjunction'} ? :
|
|
869
|
579 |
52299 |
unless ref $op and $$op
|
|
878
|
0 |
52299 |
if (exists $condition->{'disjunction'})
|
|
887
|
0 |
52299 |
if (exists $condition->{'dump'})
|
|
896
|
0 |
52299 |
unless (defined $condition)
|
|
897
|
0 |
0 |
unless defined $op or wantarray
|
|
902
|
0 |
52299 |
if ($condition->{'capture'})
|
|
928
|
0 |
52299 |
unless exists $condition->{$test}
|
|
931
|
0 |
52299 |
if ('ARRAY' eq ref $condition->{$test}) { }
|
|
|
0 |
52299 |
elsif ('CODE' eq ref $condition->{$test}) { }
|
|
934
|
0 |
0 |
if ('!' eq $condition->{$test}[0]) { }
|
|
950
|
0 |
0 |
unless $okay
|
|
955
|
0 |
0 |
unless $condition->{$test}->($op)
|
|
961
|
52299 |
0 |
unless $condition->{$test} eq $op->$test
|
|
972
|
0 |
0 |
unless exists $condition->{$_}
|
|
974
|
0 |
0 |
unless $result
|
|
976
|
0 |
0 |
unless (&blessed($result))
|
|
983
|
0 |
0 |
if (exists $condition->{'kids'})
|
|
987
|
0 |
0 |
unless @{$kidconditions;} == @{$condition->{'kids'};}
|
|
991
|
0 |
0 |
unless defined $kidconditions->[$kidno]
|
|
994
|
0 |
0 |
unless $result
|
|
996
|
0 |
0 |
unless (&blessed($result))
|
|
1004
|
0 |
0 |
if (wantarray) { }
|
|
|
0 |
0 |
elsif (defined wantarray) { }
|
|
1005
|
0 |
0 |
if (keys %$capture) { }
|
|
1031
|
0 |
0 |
ref $_ ? :
|
|
1126
|
0 |
0 |
unless $args
|
|
1127
|
0 |
0 |
if ("\n" ne substr($args, -1, 1))
|