| line |
true |
false |
branch |
|
17
|
1 |
6 |
if ref $_[-1] eq 'HASH' |
|
20
|
7 |
0 |
!refaddr($_[0]) ? : |
|
|
0 |
7 |
@_ > 1 ? : |
|
|
0 |
7 |
ref $_[0] eq 'ARRAY' ? : |
|
50
|
24 |
62 |
if $constructed{'begin'} and $constructed{'middle'} and $constructed{'end'} |
|
55
|
4 |
93 |
if $prev_number - $next_number == 2 |
|
58
|
6 |
13 |
if ($prev_number > $current_number and $i != 0 and not $have_neg_continuation) |
|
60
|
0 |
6 |
if ($prev_number - $current_number == 1) { } |
|
61
|
0 |
0 |
if ($wantarray) { } |
|
62
|
0 |
0 |
if (@lists) |
|
71
|
3 |
3 |
if ($wantarray) { } |
|
72
|
2 |
1 |
if (@lists) |
|
77
|
2 |
1 |
unless $prev_continuation |
|
84
|
47 |
50 |
if ($reset) { } |
|
|
23 |
27 |
elsif (defined $next_number and $next_number - $current_number == 1 || $current_number - $next_number == 1) { } |
|
85
|
22 |
25 |
if ($wantarray) { } |
|
87
|
1 |
21 |
if $i == $#nums |
|
89
|
3 |
22 |
if $$opts{'delimiters'}[0] |
|
92
|
14 |
33 |
if ($next_number - $current_number > 1) |
|
93
|
7 |
7 |
if ($wantarray) { } |
|
94
|
7 |
0 |
if (@lists) |
|
110
|
10 |
13 |
if ($wantarray) { } |
|
117
|
12 |
15 |
if ($wantarray) { } |
|
123
|
3 |
12 |
if $$opts{'delimiters'}[-1] |
|
124
|
12 |
3 |
unless $i == $#nums |
|
131
|
3 |
4 |
wantarray ? : |
|
138
|
0 |
7 |
unless defined $set |
|
142
|
0 |
7 |
unless ($set =~ /\G$/) |