| 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 |
|
129
|
11 |
11 |
if (ref $_ eq 'ARRAY') { } |
|
|
10 |
1 |
elsif (ref $_ eq 'HASH') { } |
|
130
|
1 |
10 |
if ($step eq '-') { } |
|
133
|
1 |
9 |
unless $step eq abs int $step |
|
137
|
2 |
7 |
$_{'opts'}{'expand'} ? : |
|
|
2 |
7 |
if $step > ($_{'opts'}{'expand'} ? @{$_;} : $#{$_;}) |
|
140
|
1 |
6 |
if $last and $_{'opts'}{'insert'} |
|
145
|
1 |
6 |
if $last and $_{'opts'}{'delete'} |
|
149
|
2 |
1 |
unless exists $_->{$step} or $_{'opts'}{'expand'} |
|
163
|
27 |
2 |
if substr($_[0], 0, 1) eq '/' |
|
168
|
22 |
17 |
if (&looks_like_number($step) or $step eq '-') { } |