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 |