line |
true |
false |
branch |
141
|
1 |
38 |
unless @simple_specs |
144
|
1 |
44 |
unless $spec2 =~ m[\A\s*
(?:
([+-]?[0-9]+) # 1) start
\s*
(?:
(\.\.|-|\+)\s* # 2) range 'operator'
([+-]?[0-9]+)\s* # 3) end
)?
)?
(?:
/\s*
([0-9]+) # 4) every
)?
\z]x |
161
|
11 |
33 |
if (not defined $1 || defined $2) { } |
167
|
7 |
26 |
if (defined $2 and $2 eq '+') |
169
|
3 |
4 |
if ($ln1 > 0) { } |
170
|
0 |
3 |
if $ln2 < 1 |
172
|
0 |
4 |
if $ln2 > -1 |
177
|
1 |
43 |
if ($every == 0) |
182
|
2 |
41 |
if ($ln1 == 0 or $ln2 == 0) { } |
|
13 |
28 |
elsif ($ln1 > 0 and $ln2 > 0) { } |
|
10 |
18 |
elsif ($ln1 < 0 and $ln2 < 0) { } |
186
|
2 |
11 |
$ln1 > $ln2 ? : |
188
|
13 |
0 |
unless ($exit_after_linum < 0) |
189
|
13 |
0 |
if $exit_after_linum < $ln1 |
190
|
6 |
7 |
if $exit_after_linum < $ln2 |
193
|
8 |
2 |
if $bufsize < -$ln1 |
194
|
3 |
7 |
if $bufsize < -$ln2 |
195
|
3 |
7 |
$ln1 > $ln2 ? : |
200
|
17 |
1 |
if ($ln1 > 0) { } |
201
|
16 |
1 |
if $bufsize < -$ln2 |
204
|
1 |
0 |
if $bufsize < -$ln1 |
214
|
10 |
427 |
if $exit_after_linum >= 0 and $linenum > $exit_after_linum |
215
|
400 |
27 |
if ($bufsize) |
217
|
334 |
66 |
if (@buffer > $bufsize) |
222
|
71 |
28 |
unless $range->[0] > 0 and $linenum >= $range->[0] and $range->[1] < 0 || $range->[1] > 0 && $linenum <= $range->[1] |
227
|
118 |
161 |
unless $range->[0] > 0 and ($linenum - 1 - $range->[0] + 1) % $range->[2] == $range->[2] - 1 |
240
|
36 |
20 |
$range->[0] > 0 ? : |
244
|
14 |
42 |
if $bufpos1 > $bufpos2 |
245
|
28 |
28 |
if ($stage == 0) { } |
252
|
13 |
34 |
unless $offset % $range->[2] == $range->[2] - 1 |