| line |
true |
false |
branch |
|
20
|
0 |
27 |
ref $_[0] eq 'HASH' ? : |
|
25
|
1 |
65 |
if $1 and not @nums |
|
28
|
2 |
24 |
unless @nums |
|
31
|
19 |
5 |
if ($numseq =~ s/\A\s*,\s*\.\.\.//) |
|
32
|
1 |
18 |
unless @nums >= 3 |
|
37
|
12 |
11 |
if ($numseq =~ s/\A\s*,\s*($re_num|[+-]?Inf)//) |
|
40
|
4 |
19 |
if length $numseq |
|
44
|
3 |
16 |
unless $has_ellipsis |
|
49
|
16 |
16 |
if ($_ == 1) { } |
|
|
7 |
9 |
elsif ($inc0 != $nums[$_] - $nums[$_ - 1]) { } |
|
60
|
0 |
7 |
if $nums[0] == 0 |
|
63
|
7 |
7 |
if ($_ == 1) { } |
|
65
|
0 |
7 |
if $nums[$_ - 1] == 0 |
|
66
|
1 |
6 |
if ($inc0 != $nums[$_] / $nums[$_ - 1]) |
|
79
|
0 |
18 |
if ($which eq "parse") |
|
81
|
0 |
0 |
$has_ellipsis ? : |
|
|
0 |
0 |
$is_geometric ? : |
|
|
0 |
0 |
$is_arithmetic ? : |
|
93
|
0 |
99 |
if $ends |
|
94
|
52 |
47 |
if $i <= $#nums |
|
95
|
3 |
44 |
unless ($has_ellipsis) |
|
98
|
27 |
17 |
if ($is_arithmetic) { } |
|
|
17 |
0 |
elsif ($is_geometric) { } |
|
100
|
18 |
9 |
if (defined $last_num) |
|
101
|
5 |
13 |
if ($inc >= 0 and $cur > $last_num or $inc < 0 and $cur < $last_num) |
|
109
|
11 |
6 |
if (defined $last_num) |
|
110
|
4 |
7 |
if ($inc >= 1 and $cur > $last_num or $inc < 1 and $cur < $last_num) |
|
129
|
0 |
0 |
if ($@) |