Branch Coverage

blib/lib/Safe/Caller.pm
Criterion Covered Total %
branch 12 20 60.0


line true false branch
22 2 12 defined $f ? :
44 3 7 ref $set eq 'ARRAY' ? :
67 0 2 unless defined $called_from_package
70 2 0 $self->{'package'}->() eq $called_from_package ? :
78 0 2 unless defined $called_from_filename
81 2 0 $self->{'filename'}->() eq $called_from_filename ? :
89 0 1 unless defined $called_from_line and $called_from_line =~ /^\d+$/
92 1 0 $self->{'line'}->() == $called_from_line ? :
100 0 2 unless defined $called_from_subroutine
103 2 0 $self->{'subroutine'}->($self->{'_frames'} + 1) eq $called_from_subroutine ? :