Branch Coverage
blib/lib/Perl6/Junction/None.pm |
|
Criterion |
Covered |
Total |
% |
branch |
50 |
50 |
100.0
|
line |
true |
false |
branch |
8
|
4 |
9 |
if ref $_[1] eq 'Regexp' |
13
|
3 |
16 |
if $_ == $test |
20
|
6 |
2 |
if ref $_[1] eq 'Regexp' |
25
|
1 |
2 |
if $_ != $test |
34
|
5 |
8 |
if $switch |
37
|
5 |
13 |
if $_ >= $test |
46
|
4 |
9 |
if $switch |
49
|
5 |
16 |
if $_ > $test |
58
|
4 |
8 |
if $switch |
61
|
4 |
12 |
if $_ <= $test |
70
|
5 |
8 |
if $switch |
73
|
4 |
12 |
if $_ < $test |
83
|
2 |
2 |
if $_ eq $test |
93
|
2 |
2 |
if $_ ne $test |
102
|
3 |
6 |
if $switch |
105
|
4 |
4 |
if $_ ge $test |
114
|
3 |
7 |
if $switch |
117
|
4 |
8 |
if $_ gt $test |
126
|
3 |
6 |
if $switch |
129
|
4 |
4 |
if $_ le $test |
138
|
3 |
6 |
if $switch |
141
|
4 |
4 |
if $_ lt $test |
151
|
2 |
9 |
if $_ =~ /$test/ |
161
|
2 |
12 |
unless $_ =~ /$test/ |
171
|
1 |
5 |
if $_ |