| line |
true |
false |
branch |
|
73
|
1 |
11 |
unless ref $_[0] eq 'ARRAY' |
|
79
|
4 |
11 |
if (ref $step eq 'ARRAY') { } |
|
|
10 |
1 |
elsif (ref $step eq 'HASH') { } |
|
81
|
1 |
3 |
if @{$step;} != 1 |
|
83
|
2 |
1 |
unless (&looks_like_number($step->[0]) and int $step->[0] == $step->[0]) |
|
93
|
2 |
8 |
unless keys %{$step;} == 1 and exists $step->{'K'} |
|
96
|
1 |
7 |
unless ref $step->{'K'} eq 'ARRAY' |
|
99
|
1 |
6 |
unless @{$step->{'K'};} == 1 |
|
131
|
6 |
9 |
if (ref $_ eq 'ARRAY') { } |
|
|
8 |
1 |
elsif (ref $_ eq 'HASH') { } |
|
132
|
1 |
5 |
if ($step eq '-') { } |
|
135
|
1 |
4 |
unless $step eq abs int $step |
|
139
|
1 |
3 |
if $step > $#{$_;} |
|
146
|
1 |
7 |
unless exists $_->{$step} |
|
160
|
20 |
2 |
if substr($_[0], 0, 1) eq '/' |
|
165
|
15 |
17 |
if (&looks_like_number($step) or $step eq '-') { } |