Branch Coverage

blib/lib/Code/Splice.pm
Criterion Covered Total %
branch 89 138 64.4


line true false branch
63 1 11 if $_[$i] eq 'precondition'
64 0 12 if $_[$i] eq 'postcondition'
77 0 3 if %args
79 0 3 unless UNIVERSAL::isa($code, 'CODE')
85 16 6 unless $op->name eq 'nextstate'
86 5 1 unless $line and $op->line == $line
88 1 2 if $line
92 0 0 unless $op->name eq 'nextstate'
93 0 0 unless $line and $op->label eq $label
95 0 3 if $label
100 0 3 unless $cv->ROOT
101 0 3 if $cv->STASH->isa('B::SPECIAL')
102 0 3 unless $cv->ROOT->can('first')
118 0 3 if ($debug)
120 0 3 unless $newop->name eq 'leavesub'
121 3 0 if $newopfirst->has_sibling and $newopfirst->name eq 'nextstate'
133 0 3 if ($debug)
134 0 3 if ($debug)
139 0 32 unless my $op = shift()
141 9 23 unless $op->can('targ')
142 15 8 unless $srcpad[$op->targ]
143 0 8 if $debug
144 0 8 unless exists $destpad{$srcpad[$op->targ]}
153 129 419 unless $self and $$self
155 419 0 $self->can('sibling') ? :
156 284 135 if $sibl and $$sibl
172 64 207 if $op->isa('B::NULL')
173 171 36 unless $op->name eq 'nextstate'
175 0 36 unless my $line = $op->line
177 0 36 if $op->isa('B::NULL')
181 0 36 if $debug
188 0 3 if ($debug)
197 0 114 unless my $op = shift()
199 0 114 unless my $parents = shift()
201 23 91 unless $op and $$op
202 0 91 if $op->isa('B::NULL')
204 0 91 if $debug
206 3 88 unless exists $$parents[0]
221 3 0 if $prev_sibling and $$prev_sibling
222 2 1 if $op->sibling and ${$op->sibling;}
224 0 3 if $debug
226 0 3 if $parent->can('first') and ${$parent->first;} == $$op
227 1 2 if $parent->can('last') and ${$parent->last;} == $$op
238 20 68 if $op->name eq 'nextstate'
239 85 3 if $curcop and defined $codelines[$curcop->line]
242 0 0 if (&$post($op, $codeline))
248 3 85 if ($$preconditions[$i]($op, $codeline))
253 3 85 unless (@$preconditions)
254 2 1 if $op->has_sibling and $op->name eq 'nextstate'
294 0 3 if ($debug)
318 232 730 if ($op->can('flags') and $op->flags & 4)
325 725 225 if $$kid
328 718 225 if $kid
331 0 0 if (B::class($op) eq 'PMOP' and $op->pmreplroot and ${$op->pmreplroot;})
341 0 0 $$op ? :
0 209 if $debug
342 0 209 if ($op->isa('B::NULL'))
343 0 0 if $debug
348 144 65 if ($op->has_sibling) { }
349 0 144 if $debug
352 0 65 if $debug
353 65 0 if $parent
355 62 147 if ($op->has_first) { }
356 0 62 if $debug
359 0 147 if $debug
367 69 302 unless $op->can('sibling') and $op->sibling and ${$op->sibling;}
374 0 124 unless $op->can('first') and $op->first and ${$op->first;}
380 0 426 if ($op->isa('B::NULL')) { }
389 50 12 $_->isa('B::SPECIAL') ? :