| blib/lib/Acme/InputRecordSeparatorIsRegexp.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 27 | 53 | 50.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 58 | 0 | 10 | 7 | $mode and index($mode, ':irs(') >= 0 |
| 122 | 0 | 3 | 0 | @rec and $self->{'autochomp'} |
| 132 | 10 | 5614 | 41 | defined $rec and $self->{'autochomp'} |
| 150 | 477 | 2363 | 2 | not eof $handle and @rec == 1 |
| 247 | 0 | 0 | 0 | $len > 0 and @{$self->{'records'};} |
| 263 | 0 | 0 | 0 | $len > 0 and length $self->{'buffer'} > 0 |
| 288 | 0 | 0 | 1 | @{$self->{'records'};} == 0 and 0 == length $self->{'buffer'} |
| line | l | !l | condition |
|---|---|---|---|
| 33 | 0 | 16 | $opts{'bufsize'} || 16384 |
| 54 | 0 | 0 | caller 0 || '' |
| 219 | 0 | 0 | $offset ||= 0 |
| 403 | 5 | 8 | $self->{'autochomp'} || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 33 | 0 | 16 | 0 | $opts{'maxrecsize'} ||= ($opts{'bufsize'} || 16384) / 4 |
| 34 | 0 | 16 | 0 | $opts{'bufsize'} ||= $opts{'maxrecsize'} * 4 |
| 53 | 17 | 0 | 0 | ref $glob or $glob =~ /::/ |
| 65 | 0 | 0 | 63 | $@ or not defined $c |
| 141 | 0 | 10 | 2840 | not $handle or eof $handle |
| 350 | 6 | 2 | 0 | ref $self eq 'GLOB' or ref \$self eq 'GLOB' |
| 373 | 10 | 6 | 10 | ref $self eq 'GLOB' or ref \$self eq 'GLOB' |
| 393 | 6 | 1 | 7 | ref $self eq 'GLOB' or ref \$self eq 'GLOB' |