Branch Coverage

File:local/lib/perl5/Exception/Class/Base.pm
Coverage:0.0%

line%coveragebranch
550TFif exists $$s{$f}
590TF$frame ? :
710TFif ref $proto
950TF@_ == 1 ? :
990TFif exists $p{'show_trace'}
1010TFif ($self->NoContextInfo) { }
1180TFif (my $i = delete $p{'ignore_class'})
1190TFref $i eq 'ARRAY' ? :
1220TFif (my $i = delete $p{'ignore_package'})
1230TFref $i eq 'ARRAY' ? :
1370TFif $key =~ /^(?:error|message|show_trace)$/
1390TFif ($fields{$key}) { }
1820TFunless $$self{'trace'}
1840TFif (@_)
1880TFexists $$self{'show_trace'} ? :
1950TFunless (defined $str and length $str)
1970TFdefined $desc && length $desc ? :
2010TFif $self->show_trace
2350TFunless defined $e and blessed $e and $e->isa($class)