Branch Coverage

blib/lib/Exception/Class/TCF.pm
Criterion Covered Total %
branch 48 76 63.1


line true false branch
36 0 27 if ref $class
42 18 47 unless $class->isa($above)
47 1 30 if @_ % 2
52 0 4 if ($key ne 'Message')
61 27 0 unless ($class =~ /^Exception::Class::TCF::/o)
63 27 0 if isException($fclass)
76 0 0 if (ref $self)
79 0 0 if $self->isProtected($val)
87 4 0 if ref $_[0]
95 0 0 if (ref $self)
98 0 0 if $PROTECTED{$name}
106 0 0 if ref $_[0]
111 1 0 if (ref $self)
118 5 0 if ref $_[0] and exists $_[0]{'Message'}
158 0 0 if ($THROWING)
169 0 4 if ($self->hasField('DyingMessage'))
173 0 4 if ($mess =~ /\n$/o) { }
178 4 0 if $pack eq 'Exception::Class::TCF'
188 1 1 unless $THROWING
194 6 48 unless (@_)
195 0 6 unless ($CATCHING or $THROWING)
202 22 26 unless ref $self
205 44 4 if (@STACK) { }
255 0 46 if $HANDLE_WARN
260 40 6 if ($@)
263 0 47 unless (ref $action eq 'CODE')
271 25 22 if $type eq 'Default'
272 1 46 if ($type eq 'Finally')
273 1 0 if ref $action eq 'CODE'
281 4 36 unless ($dTHROWING)
282 1 3 if ($catchDie or $HANDLE_DIE) { }
292 37 0 ref $exc ? :
294 4 33 unless (exists $excs{$raisedType})
296 0 4 if defined $finalAction
305 1 32 if defined $finalAction
306 7 26 if $dTHROWING
307 1 25 if $@
312 2 4 if ref $catches{'Finally'} eq 'CODE'