Branch Coverage

blib/lib/Carp/Source.pm
Criterion Covered Total %
branch 7 44 15.9


line true false branch
21 0 0 if (2 < $max and $max < length $str)
30 0 0 if (ref $arg) { }
0 0 elsif (not defined $arg) { }
31 0 0 defined $overload::VERSION ? :
39 0 0 unless $arg =~ /^-?[\d.]+\z/
44 0 0 unless utf8::is_utf8($arg)
55 0 0 if (defined $$info{'evaltext'})
57 0 0 if ($$info{'is_require'}) { }
64 0 0 $$info{'sub'} eq '(eval)' ? :
80 0 0 unless (defined $call_info{'pack'})
84 0 0 if ($call_info{'has_args'})
86 0 0 if ($Carp::Source::MaxArgNums and @args > $Carp::Source::MaxArgNums)
95 0 0 wantarray ? :
99 0 0 if ref $_[0]
110 0 0 if (defined &Thread::tid)
112 0 0 if $tid
126 11 7 unless $options{'number'}
138 0 2 unless open my $fh, '<', $file
140 0 2 unless close $fh
145 0 2 if $min_line < 0
149 0 8 unless defined $lines[$c_line]
155 0 8 unless defined $lines[$c_line]