Branch Coverage

blib/lib/Tie/RangeHash.pm
Criterion Covered Total %
branch 111 124 89.5


line true false branch
20 0 198 unless (defined $left)
22 104 94 if ($right =~ /,/) { }
24 8 195 unless $_
25 5 99 unless defined $hi
26 10 180 unless $_
27 18 86 unless defined $hr
29 16 2 $lo ne '' ? :
80 6 $lo ne '' ? :
18 86 $hr eq '' ? :
32 6 4 $lo ne '' ? :
90 4 $lo ne '' ? :
10 94 $lr eq '' ? :
35 10 0 $hi ne '' ? :
89 5 $hi ne '' ? :
10 94 $lr eq '' ? :
38 14 4 $hi ne '' ? :
85 1 $hi ne '' ? :
18 86 $hr eq '' ? :
42 36 68 if ($lo_cmp == -1 and $hi_cmp == 1 and not $lr_cmp and not $hr_cmp or not $lo_cmp || $hi_cmp || $lr_cmp || $hr_cmp) { }
16 52 elsif ($lo_cmp == 1 and $hi_cmp == 1 and $lr_cmp == 1 and $hr_cmp == 1) { }
46 6 elsif ($lo_cmp == -1 and $hi_cmp == -1 and $lr_cmp == -1 and $hr_cmp == -1) { }
59 92 2 $lo ne '' ? :
60 93 1 $hi ne '' ? :
64 45 49 if ($lo_cmp <= 0 and $hi_cmp >= 0) { }
43 6 elsif ($hi_cmp < 0) { }
6 0 elsif ($lo_cmp > 0) { }
96 0 198 unless (defined $left)
98 90 108 if ($right =~ /,/) { }
100 19 156 unless $_
101 5 85 unless defined $hi
102 7 151 unless $_
103 22 68 unless defined $hr
105 17 5 $lo ne '' ? :
54 14 $lo ne '' ? :
22 68 $hr eq '' ? :
108 3 4 $lo ne '' ? :
68 15 $lo ne '' ? :
7 83 $lr eq '' ? :
111 7 0 $hi ne '' ? :
78 5 $hi ne '' ? :
7 83 $lr eq '' ? :
114 18 4 $hi ne '' ? :
67 1 $hi ne '' ? :
22 68 $hr eq '' ? :
120 32 58 if ($lo_cmp == -1 and $hi_cmp == 1 and not $lr_cmp and not $hr_cmp or not $lo_cmp || $hi_cmp || $lr_cmp || $hr_cmp) { }
6 52 elsif ($lo_cmp == 1 and $hi_cmp == 1 and $lr_cmp == 1 and $hr_cmp == 1) { }
50 2 elsif ($lo_cmp == -1 and $hi_cmp == -1 and $lr_cmp == -1 and $hr_cmp == -1) { }
137 0 108 unless defined $lo
138 7 101 unless defined $hi
139 0 108 unless defined $right
141 106 2 $lo ne '' ? :
142 100 8 $hi ne '' ? :
146 55 53 if ($lo_cmp <= 0 and $hi_cmp >= 0) { }
44 9 elsif ($hi_cmp < 0) { }
9 0 elsif ($lo_cmp > 0) { }
212 0 5 if (ref $_[0] eq 'HASH') { }
219 2 0 if ($ARGLIST{$arg_name}) { }
259 30 0 if ($x->key_cmp($key) == 0) { }
260 0 30 wantarray ? :
274 3 4 unless (@nodes)
278 7 0 if (@nodes) { }
316 12 1 if ($x->key eq $key) { }