| blib/lib/File/FilterFuncs.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 18 | 26 | 69.2 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 0 | 12 | unless open my $in, '<', $opts{'source'} |
| 29 | 0 | 12 | unless open my $out, '>', $opts{'dest'} |
| 31 | 1 | 11 | if $opts{'binmode'} |
| 32 | 1 | 11 | if $opts{'boutmode'} |
| 33 | 2 | 10 | if exists $opts{'$/'} |
| 39 | 10 | 161 | unless &$transform() |
| 44 | 0 | 12 | unless close $out |
| 45 | 0 | 12 | unless close $in |
| 53 | 0 | 12 | unless $_[0] and '' eq ref $_[0] |
| 54 | 0 | 12 | unless $_[-1] and '' eq ref $_[-1] |
| 58 | 0 | 12 | if ($hash{'dest'} eq $hash{'source'}) |
| 64 | 4 | 9 | if ($arg_options{$_}) { } |
| 9 | 0 | elsif ('CODE' eq ref $_) { } |