| blib/lib/Test2/Plugin/OpenFixPerlIO.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 14 | 20 | 70.0 |
| line | true | false | branch |
|---|---|---|---|
| 31 | 0 | 19 | unless $ok |
| 45 | 13 | 25 | if ($args[0] =~ /^(\+?>{1,2})\&(.*)$/) |
| 53 | 6 | 7 | if (not $is_fileno and @layers != @keep_layers) { } |
| 55 | 2 | 4 | if (ref $handle eq 'GLOB') { } |
| 0 | 4 | elsif ($handle =~ /^\d+$/) { } | |
| 64 | 2 | 2 | $handle =~ /^\*(.*)$/ ? : |
| 77 | 0 | 38 | unless defined $out |
| 79 | 6 | 32 | if (@keep_layers) |
| 82 | 6 | 0 | if $binmode |
| 99 | 0 | 0 | if $WE_CARE and not $^C |