| line |
true |
false |
branch |
|
32
|
7 |
8 |
if (wantarray) { } |
|
45
|
1 |
14 |
if (ref $args->[-1] eq "HASH") |
|
60
|
11 |
4 |
if (@$args == 1) { } |
|
|
2 |
2 |
elsif (@$args > 1) { } |
|
66
|
2 |
9 |
ref $_[0] ? : |
|
67
|
0 |
133 |
unless $num =~ /$re_digits/ |
|
69
|
2 |
9 |
ref $_[0] ? : |
|
123
|
28 |
43 |
if (defined $prev_number and not $num - $prev_number == 1 || $prev_number - $num == 1) |
|
133
|
6 |
1 |
if @$entry |
|
165
|
7 |
73 |
if (not defined $prev_number) { } |
|
169
|
43 |
30 |
if ($num - $prev_number == 1 or $prev_number - $num == 1) { } |
|
|
21 |
9 |
elsif ($consecutive) { } |
|
187
|
3 |
5 |
if ($consecutive) |
|
190
|
7 |
1 |
if (@$set) |