| blib/lib/WARC/Record/Logical/Block.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 28 | 29 | 96.5 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 32 | 5 | 55 | 0 | $self->[2] and tied $self->[2] |
| 87 | 2 | 9 | 13 | defined $input && ($para .= $input) || $self->_next_segment and "\n\n" ne substr($para, -2) |
| 95 | 3 | 3 | 2 | defined($ch = $self->GETC) and $ch eq "\n" |
| 107 | 4 | 18 | 49 | defined $input && ($line .= $input) || $self->_next_segment and $/ ne substr($line, -length($/)) |
| 141 | 64 | 19 | 84 | $length and $count || $self->_next_segment |
| 199 | 2 | 15 | 6 | $npos >= $segments->[$i][2] and $npos < $segments->[$i][2] + $segments->[$i][1] |
| line | l | !l | condition |
|---|---|---|---|
| 136 | 1 | 69 | $_[2] || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 87 | 16 | 6 | 2 | defined $input && ($para .= $input) || $self->_next_segment |
| 107 | 45 | 22 | 4 | defined $input && ($line .= $input) || $self->_next_segment |
| 141 | 76 | 23 | 4 | $count || $self->_next_segment |