Branch Coverage

blib/lib/Fred/Fish/DBUG/TIE.pm
Criterion Covered Total %
branch 23 58 39.6


line true false branch
124 3 0 if ($sts)
128 0 3 $ignore_chain ? :
164 8 0 if ($sts)
168 0 8 $ignore_chain ? :
199 0 3 if ($pkg eq '') { }
0 3 elsif ($pkg ne __PACKAGE__) { }
215 0 3 if ($chain)
244 0 7 if ($pkg eq '') { }
0 7 elsif ($pkg ne __PACKAGE__) { }
260 1 6 if ($chain)
283 0 11 if $pkg eq $class
311 0 11 $self->{'called_by_other_print_func'} ? :
315 0 11 if ($called_by =~ /^Fred::Fish::DBUG::/)
324 0 11 if ($self->{'callback_recursion'}) { }
327 3 8 $self->{'tag'} eq 'STDERR' ? :
328 0 2 if $other and $other->{'callback_recursion'}
331 0 11 if ($recursion)
333 0 0 if (DBUG_EXECUTE($self->{'tag'}) == 1)
355 1 10 if ($self->{'chain'} and $self->{'chain'}->can('PRINT')) { }
365 11 0 if ($res and $self->{'callback'})
368 0 11 if DBUG_ACTIVE() == -1
404 0 0 do { $offset < 0 } ? :
0 0 do { abs $offset > $len } ? :
0 0 do { $offset == 0 unless not defined $offset } ? :
0 0 defined $length ? :
407 0 0 unless not defined $offset
408 0 0 $len < $length ? :
416 0 0 $len < $length ? :
421 0 0 $len < $length ? :