| line |
true |
false |
branch |
|
19
|
0 |
27 |
ref $_[0] eq 'HASH' ? : |
|
24
|
1 |
65 |
if $1 and not @nums |
|
27
|
2 |
24 |
unless @nums |
|
30
|
19 |
5 |
if ($numseq =~ s/\A\s*,\s*\.\.\.//) |
|
31
|
1 |
18 |
unless @nums >= 3 |
|
36
|
12 |
11 |
if ($numseq =~ s/\A\s*,\s*($re_num|[+-]?Inf)//) |
|
39
|
4 |
19 |
if length $numseq |
|
43
|
3 |
16 |
unless $has_ellipsis |
|
48
|
16 |
16 |
if ($_ == 1) { } |
|
|
7 |
9 |
elsif ($inc0 != $nums[$_] - $nums[$_ - 1]) { } |
|
59
|
0 |
7 |
if $nums[0] == 0 |
|
62
|
7 |
7 |
if ($_ == 1) { } |
|
64
|
0 |
7 |
if $nums[$_ - 1] == 0 |
|
65
|
1 |
6 |
if ($inc0 != $nums[$_] / $nums[$_ - 1]) |
|
78
|
0 |
18 |
if ($which eq 'parse') |
|
80
|
0 |
0 |
$has_ellipsis ? : |
|
|
0 |
0 |
$is_geometric ? : |
|
|
0 |
0 |
$is_arithmetic ? : |
|
92
|
0 |
99 |
if $ends |
|
93
|
52 |
47 |
if $i <= $#nums |
|
94
|
3 |
44 |
unless ($has_ellipsis) |
|
97
|
27 |
17 |
if ($is_arithmetic) { } |
|
|
17 |
0 |
elsif ($is_geometric) { } |
|
99
|
18 |
9 |
if (defined $last_num) |
|
100
|
5 |
13 |
if ($inc >= 0 and $cur > $last_num or $inc < 0 and $cur < $last_num) |
|
108
|
11 |
6 |
if (defined $last_num) |
|
109
|
4 |
7 |
if ($inc >= 1 and $cur > $last_num or $inc < 1 and $cur < $last_num) |
|
128
|
0 |
0 |
if ($@) |