Branch Coverage

blib/lib/Error/Pure/Print.pm
Criterion Covered Total %
branch 3 4 75.0


line true false branch
28 0 9 if ($stack_ar->[-1]{'class'} eq 'main' and &none(sub { $_ =~ /^eval '/ms unless $_ eq $EVAL; } , map({$_->{'sub'};} @{$stack_ar;}))) { }
29 11 9 unless $_ eq $EVAL