| blib/lib/HTTP/Server/Simple/Recorder.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 14 | 50.0 |
| line | true | false | branch |
|---|---|---|---|
| 13 | 2 | 5 | if (@_) |
| 23 | 0 | 2 | unless my $in = 'IO::File'->new("$infile", '>') |
| 25 | 0 | 2 | unless my $out = 'IO::File'->new("$outfile", '>') |
| 53 | 4 | 0 | if (@_) { } |
| 54 | 0 | 8 | unless binmode $fh, $_[0] |
| 56 | 0 | 0 | unless binmode $fh |
| 65 | 42 | 0 | if $bytes |