Branch Coverage

blib/lib/Throw.pm
Criterion Covered Total %
branch 35 80 43.7


line true false branch
18 2 1 unless @_
19 6 0 defined &{"${me}::$_";} ? :
23 2 4 unless $_[1]
0 6 ref $_[0] ? :
24 3 3 if $trace or $$args{'trace'} or @_ > 2
30 0 0 unless $_[1]
0 0 ref $_[0] ? :
31 0 0 if $trace or $$args{'trace'} or @_ > 2
35 1 0 unless $_[1]
36 0 0 unless $_[1]
37 1 0 unless $_[1]
38 0 0 unless $_[1]
43 0 4 defined $pretty ? :
45 2 2 unless scalar keys %$self
47 0 2 $p ? :
49 0 2 $p ? :
53 0 5 !($_[0] && $_[0] =~ /^[123]$/) ? :
0 5 ref $_[0] ? :
55 2 3 if $$args{'verbose'} and $$args{'verbose'} eq '1'
56 3 0 eval { do { require 5.014 } } ? :
59 1 2 ($DB::args[0] || '') ne \$nv ? :
6 3 $nv ? :
60 3 6 unless $sargs
62 0 6 if $file eq '/.cpan/build/Throw-0.12-gDZkS7/blib/lib/Throw.pm' or $$args{'skip'}{$file} or $$args{'skip'}{$pkg} or $$args{'skip'}{$sub}
63 0 6 if @$sargs > ($$args{'max_args'} ||= 5)
66 0 0 ref $_ || !/\D/ ? :
0 0 !defined($_) ? :
6 0 !@$sargs || $i == 2 && $sub eq 'throw' ? :
69 5 1 if length $sub > $m1
70 3 3 if length $file > $m2
71 3 3 if length $line > $m3
81 0 0 unless ref $ref
82 0 0 defined $$err{'type'} ? :
0 0 !ref($err) ? :
84 0 0 unless length $b <=> length $a
0 0 if @keys > 1
86 0 0 unless $type =~ /^\Q$key\E\b(?:$|\.)/
88 0 0 ref $val ? :
90 0 0 unless exists $$ref{'default'}
92 0 0 ref $val ? :