| line |
true |
false |
branch |
|
24
|
2 |
14 |
if (@opts % 2) { } |
|
49
|
17 |
0 |
unless (defined $_[0]) |
|
53
|
0 |
0 |
unless (ref $glob or $glob =~ /::/) |
|
58
|
7 |
10 |
if ($mode and index($mode, ':irs(') >= 0) |
|
65
|
0 |
63 |
if ($@ or not defined $c) |
|
69
|
16 |
47 |
if ($c eq '\\') |
|
72
|
0 |
63 |
if ($c eq '(') |
|
73
|
7 |
56 |
if ($c eq ')') |
|
74
|
56 |
7 |
if ($nest) |
|
77
|
0 |
7 |
@list ? : |
|
82
|
0 |
10 |
if (@list) { } |
|
|
10 |
0 |
elsif ($expr) { } |
|
|
0 |
0 |
elsif ($mode) { } |
|
98
|
14 |
26 |
if ($q) { } |
|
100
|
0 |
14 |
if ($rs =~ /\?\^\w*m/) |
|
106
|
0 |
26 |
if ($rs =~ /\?\^\w*m/) |
|
116
|
3 |
5665 |
if (wantarray) |
|
122
|
0 |
3 |
if (@rec and $self->{'autochomp'}) |
|
128
|
2849 |
2816 |
unless (@{$self->{'records'};}) |
|
132
|
41 |
5614 |
if (defined $rec and $self->{'autochomp'}) |
|
141
|
10 |
2840 |
if not $handle or eof $handle |
|
150
|
2 |
2840 |
if not eof $handle and @rec == 1 |
|
154
|
477 |
2363 |
if (eof $handle) |
|
158
|
2363 |
0 |
if (@{$self->{'records'};} > 1) |
|
167
|
0 |
0 |
if length $rec > 0 |
|
174
|
0 |
2845 |
unless (defined $self->{'can_use_lookbehind'}) |
|
179
|
1 |
2844 |
if ($self->{'can_use_lookbehind'}) { } |
|
202
|
3 |
0 |
if ($self->{'handle'}) |
|
206
|
3 |
0 |
if ($z) |
|
220
|
0 |
0 |
unless (defined $len) |
|
228
|
1 |
12 |
if ($self->TELL != tell $self->{'handle'}) { } |
|
248
|
0 |
0 |
if (length $self->{'records'}[0] >= $len) { } |
|
263
|
0 |
0 |
if ($len > 0 and length $self->{'buffer'} > 0) |
|
265
|
0 |
0 |
if ($reclen >= $len) { } |
|
279
|
0 |
0 |
if ($len > 0) { } |
|
288
|
1 |
0 |
if (@{$self->{'records'};} == 0 and 0 == length $self->{'buffer'}) |
|
292
|
1 |
0 |
if (@{$self->{'records'};}) { } |
|
|
0 |
0 |
elsif (0 != length $self->{'buffer'}) { } |
|
294
|
0 |
1 |
if (0 == length $self->{'records'}[0]) |
|
310
|
0 |
1 |
if (@_) { } |
|
320
|
1 |
2754 |
if ($whence == 1) |
|
350
|
8 |
0 |
if (ref $self eq 'GLOB' or ref \$self eq 'GLOB') { } |
|
351
|
3 |
5 |
if (tied *$self) |
|
352
|
3 |
0 |
if (ref tied *$self eq 'Acme::InputRecordSeparatorIsRegexp') |
|
356
|
0 |
0 |
if ($@) |
|
361
|
3 |
2 |
unless (@_) |
|
373
|
16 |
10 |
if (ref $self eq 'GLOB' or ref \$self eq 'GLOB') |
|
374
|
4 |
12 |
if (not tied *$self) { } |
|
375
|
2 |
2 |
unless (@_) |
|
383
|
10 |
14 |
if (@_) |
|
393
|
7 |
7 |
if (ref $self eq 'GLOB' or ref \$self eq 'GLOB') |
|
394
|
2 |
5 |
if (not tied *$self) { } |
|
395
|
1 |
1 |
unless (@_) |
|
404
|
5 |
8 |
if (@_) |
|
416
|
60 |
19 |
if (defined $1) |