| line |
true |
false |
branch |
|
24
|
2 |
26 |
if (@opts % 2) { } |
|
59
|
0 |
145 |
if ($@ or not defined $c) |
|
63
|
28 |
117 |
if ($c eq '\\') |
|
66
|
0 |
145 |
if ($c eq '(') |
|
67
|
15 |
130 |
if ($c eq ')') |
|
68
|
130 |
15 |
if ($nest) |
|
78
|
23 |
0 |
unless (defined $_[0]) |
|
82
|
0 |
0 |
unless (ref $glob or $glob =~ /::/) |
|
86
|
8 |
15 |
if ($mode and index($mode, ':irs(') >= 0) |
|
88
|
0 |
8 |
@list ? : |
|
93
|
0 |
15 |
if (@list) { } |
|
|
15 |
0 |
elsif ($expr) { } |
|
|
0 |
0 |
elsif ($mode) { } |
|
108
|
7 |
0 |
if (index($mode, ':irs(') >= 0) |
|
111
|
7 |
0 |
unless $mode |
|
121
|
33 |
47 |
if ($q) { } |
|
123
|
0 |
33 |
if ($rs =~ /\?\^\w*m/) |
|
129
|
0 |
47 |
if ($rs =~ /\?\^\w*m/) |
|
139
|
4 |
11177 |
if (wantarray) |
|
145
|
0 |
4 |
if (@rec and $self->{'autochomp'}) |
|
151
|
5684 |
5493 |
unless (@{$self->{'records'};}) |
|
155
|
82 |
11078 |
if (defined $rec and $self->{'autochomp'}) |
|
164
|
17 |
5668 |
if not $handle or eof $handle |
|
172
|
4 |
5668 |
if not eof $handle and @rec == 1 |
|
176
|
950 |
4718 |
if (eof $handle) |
|
180
|
4718 |
0 |
if (@{$self->{'records'};} > 1) |
|
189
|
0 |
0 |
if length $rec > 0 |
|
196
|
0 |
5676 |
unless (defined $self->{'can_use_lookbehind'}) |
|
201
|
2 |
5674 |
if ($self->{'can_use_lookbehind'}) { } |
|
224
|
3 |
0 |
if ($self->{'handle'}) |
|
228
|
3 |
0 |
if ($z) |
|
242
|
0 |
0 |
unless (defined $len) |
|
250
|
1 |
12 |
if ($self->TELL != tell $self->{'handle'}) { } |
|
270
|
0 |
0 |
if (length $self->{'records'}[0] >= $len) { } |
|
285
|
0 |
0 |
if ($len > 0 and length $self->{'buffer'} > 0) |
|
287
|
0 |
0 |
if ($reclen >= $len) { } |
|
301
|
0 |
0 |
if ($len > 0) { } |
|
310
|
1 |
0 |
if (@{$self->{'records'};} == 0 and 0 == length $self->{'buffer'}) |
|
314
|
1 |
0 |
if (@{$self->{'records'};}) { } |
|
|
0 |
0 |
elsif (0 != length $self->{'buffer'}) { } |
|
316
|
0 |
1 |
if (0 == length $self->{'records'}[0]) |
|
332
|
0 |
1 |
if (@_) { } |
|
342
|
1 |
5506 |
if ($whence == 1) |
|
372
|
15 |
0 |
if (ref $self eq 'GLOB' or ref \$self eq 'GLOB') { } |
|
373
|
6 |
9 |
if (tied *$self) |
|
374
|
6 |
0 |
if (ref tied *$self eq 'Acme::InputRecordSeparatorIsRegexp') |
|
378
|
0 |
0 |
if ($@) |
|
383
|
6 |
3 |
unless (@_) |
|
395
|
39 |
17 |
if (ref $self eq 'GLOB' or ref \$self eq 'GLOB') |
|
396
|
15 |
24 |
if (not tied *$self) { } |
|
397
|
4 |
11 |
unless (@_) |
|
405
|
25 |
27 |
if (@_) |
|
415
|
14 |
14 |
if (ref $self eq 'GLOB' or ref \$self eq 'GLOB') |
|
416
|
4 |
10 |
if (not tied *$self) { } |
|
417
|
2 |
2 |
unless (@_) |
|
426
|
10 |
16 |
if (@_) |
|
438
|
120 |
38 |
if (defined $1) |