Branch Coverage

blib/lib/Perl6/Junction/One.pm
Criterion Covered Total %
branch 109 110 99.0


line true false branch
8 5 12 if ref $_[1] eq 'Regexp'
14 12 15 if ($_ == $test)
15 2 10 if $count
20 8 2 if $count
24 4 3 if ref $_[1] eq 'Regexp'
30 3 3 if ($_ != $test)
31 1 2 if $count
36 1 1 if $count
42 7 10 if $switch
47 11 18 if ($_ >= $test)
48 3 8 if $count
53 5 2 if $count
59 4 8 if $switch
64 8 15 if ($_ > $test)
65 2 6 if $count
70 4 2 if $count
76 3 11 if $switch
81 11 12 if ($_ <= $test)
82 2 9 if $count
87 7 2 if $count
93 4 8 if $switch
98 8 13 if ($_ < $test)
99 2 6 if $count
104 4 2 if $count
112 3 3 if ($_ eq $test)
113 1 2 if $count
118 1 1 if $count
126 4 5 if ($_ ne $test)
127 1 3 if $count
132 2 1 if $count
138 4 7 if $switch
143 7 6 if ($_ ge $test)
144 2 5 if $count
149 3 2 if $count
155 4 7 if $switch
160 8 6 if ($_ gt $test)
161 2 6 if $count
166 4 1 if $count
172 3 7 if $switch
177 5 9 if ($_ le $test)
178 1 4 if $count
183 3 3 if $count
189 4 8 if $switch
194 8 8 if ($_ lt $test)
195 2 6 if $count
200 4 2 if $count
209 8 4 if ($_ =~ /$test/)
210 3 5 if $count
215 2 0 if $count
224 4 7 unless ($_ =~ /$test/)
225 1 3 if $count
230 2 1 if $count
238 5 6 if ($_)
239 1 4 if $count
244 3 1 if $count