| blib/lib/Test2/Plugin/OpenFixPerlIO.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 15 | 22 | 68.1 |
| line | true | false | branch |
|---|---|---|---|
| 11 | 0 | 8 | if $] >= 5.027001 |
| 33 | 0 | 19 | unless $ok |
| 47 | 13 | 25 | if ($args[0] =~ /^(\+?>{1,2})\&(.*)$/) |
| 55 | 6 | 7 | if (not $is_fileno and @layers != @keep_layers) { } |
| 57 | 2 | 4 | if (ref $handle eq 'GLOB') { } |
| 0 | 4 | elsif ($handle =~ /^\d+$/) { } | |
| 66 | 2 | 2 | $handle =~ /^\*(.*)$/ ? : |
| 79 | 0 | 38 | unless defined $out |
| 81 | 6 | 32 | if (@keep_layers) |
| 84 | 6 | 0 | if $binmode |
| 101 | 0 | 0 | if $WE_CARE and not $^C |