Branch Coverage

blib/lib/Want.pm
Criterion Covered Total %
branch 66 74 89.1


line true false branch
31 17 136 if ($arg =~ /^\d+$/) { }
6 130 elsif (lc $arg eq 'infinity') { }
2 128 elsif ($arg eq 'REF') { }
26 102 elsif ($reftype{$arg}) { }
3 99 elsif ($arg eq 'REFSCALAR') { }
14 85 elsif ($arg eq 'LVALUE') { }
8 77 elsif ($arg eq 'RVALUE') { }
4 73 elsif ($arg eq 'VOID') { }
10 63 elsif ($arg eq 'SCALAR') { }
47 16 elsif ($arg eq 'BOOL' or $arg eq 'BOOLEAN') { }
11 5 elsif ($arg eq 'LIST') { }
0 5 elsif ($arg eq 'COUNT') { }
5 0 elsif ($arg eq 'ASSIGN') { }
78 12 152 if (@_ == 1 and $_[0] eq 'ASSIGN')
90 0 246 if ($p eq 'return' or $p eq '(none)' and $r =~ /^leavesub(lv)?$/) { }
105 133 19 if (1 == @args)
107 5 128 if $args[0] eq 'REF'
108 15 113 if $args[0] eq 'COUNT'
109 0 113 if $args[0] eq 'ASSIGN'
113 28 125 if ($arg =~ /^!(.*)/) { }
114 6 22 if _wantone(2 + $level, $1)
117 52 73 unless _wantone(2 + $level, $arg)
127 13 5 $count < 0 ? :
133 19 150 if ($n eq 'rv2av') { }
20 130 elsif ($n eq 'rv2hv') { }
9 121 elsif ($n eq 'rv2cv' or $n eq 'entersub') { }
2 119 elsif ($n eq 'rv2gv' or $n eq 'gelem') { }
1 118 elsif ($n eq 'rv2sv') { }
2 116 elsif ($n eq 'method_call') { }
0 116 elsif ($n eq 'multideref') { }
161 5 12 unless &want_lvalue($uplevel)
163 8 4 if (want('BOOL')) { }
167 4 0 want('SCALAR') ? :
4 0 $r ? :
172 1 1 if (want_lvalue(1))
182 0 1 wantarray ? :
187 1 4 unless (want_lvalue(1) and want_assign(1))