| blib/lib/Acme/InputRecordSeparatorIsRegexp.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 28 | 55 | 50.9 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 86 | 0 | 15 | 8 | $mode and index($mode, ':irs(') >= 0 |
| 145 | 0 | 4 | 0 | @rec and $self->{'autochomp'} |
| 155 | 17 | 11078 | 82 | defined $rec and $self->{'autochomp'} |
| 172 | 950 | 4718 | 4 | not eof $handle and @rec == 1 |
| 269 | 0 | 0 | 0 | $len > 0 and @{$self->{'records'};} |
| 285 | 0 | 0 | 0 | $len > 0 and length $self->{'buffer'} > 0 |
| 310 | 0 | 0 | 1 | @{$self->{'records'};} == 0 and 0 == length $self->{'buffer'} |
| line | l | !l | condition |
|---|---|---|---|
| 33 | 0 | 28 | $opts{'bufsize'} || 16384 |
| 83 | 0 | 0 | caller 0 || '' |
| 106 | 7 | 0 | $mode ||= ':raw' |
| 241 | 0 | 0 | $offset ||= 0 |
| 425 | 10 | 16 | $self->{'autochomp'} || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 33 | 0 | 28 | 0 | $opts{'maxrecsize'} ||= ($opts{'bufsize'} || 16384) / 4 |
| 34 | 0 | 28 | 0 | $opts{'bufsize'} ||= $opts{'maxrecsize'} * 4 |
| 59 | 0 | 0 | 145 | $@ or not defined $c |
| 82 | 23 | 0 | 0 | ref $glob or $glob =~ /::/ |
| 164 | 0 | 17 | 5668 | not $handle or eof $handle |
| 372 | 11 | 4 | 0 | ref $self eq 'GLOB' or ref \$self eq 'GLOB' |
| 395 | 27 | 12 | 17 | ref $self eq 'GLOB' or ref \$self eq 'GLOB' |
| 415 | 12 | 2 | 14 | ref $self eq 'GLOB' or ref \$self eq 'GLOB' |