| blib/lib/IO/Divert.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 8 | 75.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 0 | 12 | unless open $opt{'FH'}, ">:encoding($encoding)", \$opt{'BUFFER'} |
| 23 | 0 | 12 | unless $opt{'STDOUT'} = select($opt{'FH'}) |
| 69 | 3 | 9 | if (my $final = $obj->{'FINAL'}) |
| 74 | 6 | 6 | if ($obj->{'autoprint'}) |