Branch Coverage

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

line%coveragebranch
2450TFref $_[0] ? :
250TFref $$def{'isa'} ? :
50TF$$def{'isa'} ? :
4050TFif $CLASSES{$subclass}
450TFunless (keys %{"${parent}::";})
880TFunless exists $$needs{$subclass} or $CLASSES{$subclass} or keys %{"${subclass}::";}
930TFif $CLASSES{$c} or keys %{"${c}::";}
950TFif $$seen{$subclass}
1030TFif $CLASSES{$subclass} or keys %{"${subclass}::";}
11950TFif ($$def{'isa'})
12050TFref $$def{'isa'} ? :
13750TFif ($$def{'description'})
14850TFif (my $fields = $$def{'fields'})
1490TFUNIVERSAL::isa($fields, 'ARRAY') ? :
16150TFif (my $alias = $$def{'alias'})
16250TFunless defined $Exception::Class::Caller
17050TFif (my $defaults = $$def{'defaults'})
17950TFif $@
1870TFunless $_[1]
1890TFunless blessed $e and $e->isa($_[1])