| line |
true |
false |
branch |
|
68
|
4 |
0 |
unless utf8::is_utf8($f) |
|
79
|
4 |
0 |
unless utf8::is_utf8($f) |
|
90
|
6 |
6 |
if $x ~~ ["r", "R"] |
|
127
|
50 |
50 |
$i++ % 2 == 0 ? : |
|
131
|
716 |
19 |
if $k =~ /^I(\d+)\z/u |
|
|
716 |
19 |
if do {
$k = $1 if $k =~ /^I(\d+)\z/u
} |
|
156
|
22 |
4 |
lc $& eq $& ? : |
|
173
|
1 |
1 |
@_ == 0 ? : |
|
181
|
1 |
1 |
@_ == 0 ? : |
|
204
|
1 |
11 |
$+{'type'} eq ':' ? : |
|
|
1 |
12 |
$+{'type'} eq '>' ? : |
|
225
|
3 |
2 |
if (0 == int $interval) |
|
226
|
1 |
2 |
if 0 == int $interval * 1000000 |
|
227
|
1 |
1 |
if 0 == int $interval * 1000 |
|
254
|
3 |
10 |
if ($v == {sign => '+', value => [0]}) { } |
|
287
|
1 |
3 |
if $radix > length $CIF |
|
294
|
3 |
5 |
unless $n = int $n / $radix |
|
305
|
1 |
3 |
if $radix > length $CIF |
|
331
|
1 |
1 |
@$s == 2 ? : |
|
|
2 |
7 |
if ref $s |
|
334
|
2 |
7 |
if defined $y |
|
346
|
1 |
4 |
if $n >= 1073741824 |
|
347
|
1 |
3 |
if $n >= 1048576 |
|
348
|
1 |
2 |
if $n >= 1024 |
|
359
|
1 |
6 |
if length $1 == 0 |
|
361
|
2 |
4 |
$k < 0 ? : |