Branch Coverage

blib/lib/Data/Diver.pm
Criterion Covered Total %
branch 36 42 85.7


line true false branch
56 3 7 if 1 < @_
57 4 4 wantarray ? :
8 2 if @_ or not @lastError
66 0 24 unless @_
68 0 24 unless $ref
71 14 65 if (not defined $key) { }
4 61 elsif (eval { do { my $x = $$key[0]; 1 } } and isa($ref, 'CODE')) { }
22 39 elsif ($key =~ /^-?\d+$/ and eval { do { my $x = $$ref[0]; 1 } }) { }
34 5 elsif (eval { do { exists $$ref{$key} } }) { }
2 3 elsif (eval { do { my $x = $$ref{$key}; 1 } }) { }
73 2 12 unless eval { do { my $x = $$ref; 1 } }
78 2 2 if (@_ and not defined $_[0]) { }
86 2 20 if $key < -@$ref or $#$ref < $key
91 0 34 if (eval { do { my $x = $$key; 1 } }) { }
114 1 16 unless @_
116 2 14 unless $$sv
119 7 32 if (not defined $key) { }
0 32 elsif (eval { do { my $x = $$key[0]; 1 } } and isa($$sv, 'CODE')) { }
10 22 elsif (eval { do { my $x = $$key; 1 } } and !defined($$sv) || eval { do { my $x = $$$sv{'0'}; 1 } }) { }
5 17 elsif ($key =~ /^-?\d+$/ and !defined($$sv) || eval { do { my $x = $$$sv[0]; 1 } }) { }
124 0 0 if (@_ and not defined $_[0]) { }