| line | % | coverage | branch |
|---|
| 133 | 100 | T | F | defined $size && $size > $BLOCK * $MAX_BLOCKS ? : |
| 137 | 100 | T | F | defined $per_block ? : |
| 191 | 50 | T | F | unless defined $path and length $path and -f $path |
| 193 | 50 | T | F | unless $size >= $MIN_SIZE |
| 195 | 100 | T | F | unless defined $block and $block > 0 |
| 263 | 50 | T | F | unless $signature->{'blocks'} |
| 269 | 50 | T | F | unless defined $count |
| 270 | 50 | T | F | unless $count =~ /\A\d+\z/ |
| 272 | 50 | T | F | defined $bytes ? : |
| 273 | 100 | T | F | unless $length == $count * $RECORD_BYTES |
| 359 | 50 | T | F | unless $out |
| 360 | 50 | T | F | unless my $block = $signature->{'blocklen'} |
| 440 | 50 | T | F | unless print {$out;} $COPY . pack("NN", $offset, $length) |
| 447 | 50 | T | F | if (defined $bytes and length $bytes) |
| 448 | 50 | T | F | unless print {$out;} $LIT . pack("N", length $bytes) . $bytes |
| 502 | 100 | T | F | unless length $type |
| 503 | 50 | T | F | unless $type eq $COPY or $type eq $LIT |
| 505 | 100 | T | F | if $type eq $COPY |
| 508 | 50 | T | F | $length ? : |
| 565 | 100 | T | F | $type eq 'copy' ? : |
| 566 | 50 | T | F | unless print {$out;} $bytes |
| 625 | 100 | T | F | unless length $chunk |