Branch Coverage

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


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