| line |
true |
false |
branch |
|
32
|
0 |
6 |
if @_ % 2 |
|
34
|
0 |
15 |
unless exists $obj->{$key} |
|
43
|
31 |
0 |
if (/
^
(? -\d+ | \d* )
(?:
(?: \.\. | : ) (? [-+]\d+ | \d* )
(?:
: (? \d* )
(?:
: (? \d* )
)?
)?
)?
$
/ux) { } |
|
80
|
2 |
30 |
unless (defined $max) |
|
81
|
0 |
2 |
if ($start =~ /^-\d+$/u or defined $end and $end =~ /^-\d+$/u) |
|
88
|
0 |
15 |
if ($start =~ /\d/u and defined $max and $start > $max) |
|
91
|
17 |
15 |
if ($start eq '') { } |
|
|
2 |
13 |
elsif ($start =~ /^-\d+$/u) { } |
|
98
|
3 |
29 |
if (not defined $end) { } |
|
|
7 |
22 |
elsif ($end eq '') { } |
|
|
2 |
20 |
elsif ($end =~ /^-/u) { } |
|
|
1 |
19 |
elsif ($end =~ s/^\+//u) { } |
|
102
|
7 |
0 |
defined $max ? : |
|
110
|
2 |
30 |
if defined $max and $end > $max |
|
116
|
15 |
17 |
if ($step == 1) { } |
|
121
|
67 |
8 |
if defined $max |
|
131
|
57 |
0 |
ref $_ eq 'ARRAY' ? : |