| line |
true |
false |
branch |
|
20
|
0 |
28 |
ref $_[0] eq 'HASH' ? : |
|
25
|
1 |
68 |
if $1 and not @nums |
|
28
|
2 |
25 |
unless @nums |
|
31
|
20 |
5 |
if ($numseq =~ s/\A\s*,\s*\.\.\.//) |
|
32
|
1 |
19 |
unless @nums >= 3 |
|
37
|
12 |
12 |
if ($numseq =~ s/\A\s*,\s*($re_num|[+-]?Inf)//) |
|
40
|
4 |
20 |
if length $numseq |
|
45
|
3 |
17 |
unless $has_ellipsis |
|
50
|
17 |
17 |
if ($_ == 1) { } |
|
|
8 |
9 |
elsif ($inc0 != $nums[$_] - $nums[$_ - 1]) { } |
|
61
|
0 |
8 |
if $nums[0] == 0 |
|
64
|
8 |
8 |
if ($_ == 1) { } |
|
66
|
0 |
8 |
if $nums[$_ - 1] == 0 |
|
67
|
2 |
6 |
if ($inc0 != $nums[$_] / $nums[$_ - 1]) |
|
78
|
0 |
2 |
if @nums < 3 |
|
79
|
1 |
1 |
if defined $last_num |
|
81
|
0 |
1 |
unless $nums[$_] == $nums[$_ - 1] + $nums[$_ - 2] |
|
90
|
0 |
19 |
if ($which eq "parse") |
|
92
|
0 |
0 |
$has_ellipsis ? : |
|
|
0 |
0 |
defined $inc ? : |
|
105
|
0 |
105 |
if $ends |
|
106
|
55 |
50 |
if $i <= $#nums |
|
107
|
3 |
47 |
unless ($has_ellipsis) |
|
110
|
27 |
20 |
if ($type eq 'arithmetic') { } |
|
|
17 |
3 |
elsif ($type eq 'geometric') { } |
|
|
3 |
0 |
elsif ($type eq 'fibonacci') { } |
|
112
|
18 |
9 |
if (defined $last_num) |
|
113
|
5 |
13 |
if ($inc >= 0 and $cur > $last_num or $inc < 0 and $cur < $last_num) |
|
121
|
11 |
6 |
if (defined $last_num) |
|
122
|
4 |
7 |
if ($inc >= 1 and $cur > $last_num or $inc < 1 and $cur < $last_num) |
|
129
|
1 |
2 |
unless @buf |
|
148
|
0 |
0 |
if ($@) |