| line |
true |
false |
branch |
|
33
|
0 |
6 |
if @_ % 2 |
|
35
|
0 |
15 |
unless exists $obj->{$key} |
|
44
|
31 |
0 |
if (/
^
(? -\d+ | \d* )
(?:
(?: \.\. | : ) (? [-+]\d+ | \d* )
(?:
: (? \d* )
(?:
: (? \d* )
)?
)?
)?
$
/ux) { } |
|
81
|
2 |
30 |
unless (defined $max) |
|
82
|
0 |
2 |
if ($start =~ /^-\d+$/u or defined $end and $end =~ /^-\d+$/u) |
|
89
|
0 |
15 |
if ($start =~ /\d/u and defined $max and $start > $max) |
|
92
|
17 |
15 |
if ($start eq '') { } |
|
|
2 |
13 |
elsif ($start =~ /^-\d+$/u) { } |
|
99
|
3 |
29 |
if (not defined $end) { } |
|
|
7 |
22 |
elsif ($end eq '') { } |
|
|
2 |
20 |
elsif ($end =~ /^-/u) { } |
|
|
1 |
19 |
elsif ($end =~ s/^\+//u) { } |
|
103
|
7 |
0 |
defined $max ? : |
|
111
|
2 |
30 |
if defined $max and $end > $max |
|
117
|
0 |
32 |
if $step <= 0 |
|
120
|
15 |
17 |
if ($step == 1) { } |
|
125
|
67 |
8 |
if defined $max |
|
135
|
57 |
0 |
if (ref $_ eq 'ARRAY') { } |