| blib/lib/PerlIO/via/Bzip2.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 19 | 24 | 79.1 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 1 | 3 | if $_[1] |
| 36 | 3 | 8 | if ($mode eq 'r') { } |
| 5 | 3 | elsif ($mode eq 'w') { } | |
| 37 | 0 | 3 | unless $$self{'stream'} = &Compress::Bzip2::decompress_init() |
| 41 | 0 | 5 | unless $$self{'stream'} = &Compress::Bzip2::compress_init('level', $Level) |
| 56 | 2 | 4 | if ($stream and read($fh, $data, $Buf_Size) > 0) { } |
| 2 | 2 | elsif ($stream) { } | |
| 73 | 0 | 4 | unless defined $data |
| 74 | 4 | 0 | print({$fh;} $data) ? : |
| 81 | 3 | 5 | if $$self{'mode'} eq 'r' |
| 83 | 4 | 1 | if ($data) |
| 84 | 4 | 0 | print({$fh;} $data) ? : |