Branch Coverage

blib/lib/Error/Base.pm
Criterion Covered Total %
branch 10 74 13.5


line true false branch
58 0 0 if (defined $$self{-'lines'}) { }
85 0 0 defined $args{-'top'} ? :
127 0 0 unless ($$frame{-'package'})
133 0 0 unless ($$frame{-'sub'})
140 0 0 $maxlen[$fc] > length $$frame{$f[$fc]} ? :
147 0 0 if ($$frame{-'eval'})
155 0 0 if $i > 99
174 0 0 if ($$frame{-'bottom'}) { }
188 0 0 if ($$frame{-'eval'})
240 0 0 if (&Scalar::Util::blessed($self)) { }
266 0 0 unless ($message)
275 0 0 unless ($$self{-'quiet'})
281 0 0 if (defined $$self{-'prepend'}) { }
288 0 0 if (defined $$self{-'indent'}) { }
348 0 0 if (not $rt) { }
0 0 elsif ($rt eq 'SCALAR') { }
0 0 elsif ($rt eq 'ARRAY') { }
405 0 0 if (scalar @_ % 2)
446 0 13 if (scalar @_ % 2)
483 9 4 unless (defined $$self{-'base'})
491 13 0 unless (defined $$self{-'type'})
499 13 0 unless (defined $$self{-'mesg'})
507 13 0 unless (defined $$self{-'quiet'})
515 13 0 unless (defined $$self{-'nest'})
540 0 13 defined $$self{-'prepend'} ? :
541 0 13 defined $$self{-'indent'} ? :
544 13 0 if ($case eq '--') { }
0 0 elsif ($case eq '-I') { }
0 0 elsif ($case eq 'P-') { }
664 0 0 unless (ref $Error::Base::Late::self)
668 0 0 unless $Error::Base::Late::in =~ /[\$\@%]/
693 0 0 unless @keys
715 0 0 if (not $rt) { }
0 0 elsif ($rt eq 'SCALAR') { }
0 0 elsif ($rt eq 'ARRAY') { }
0 0 elsif ($rt eq 'HASH') { }
768 0 0 if ($@)