| blib/lib/IO/Die/open.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 18 | 22.2 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 0 | 4 | if not ref $_[0] and defined $_[0] and length $_[0] |
| 29 | 0 | 4 | unless $mode |
| 32 | 0 | 4 | unless (defined $expr) |
| 33 | 0 | 0 | if ($mode eq '|-' or $mode eq '-|') |
| 37 | 0 | 0 | unless (defined $open) |
| 48 | 0 | 4 | unless (my $ok = CORE::open($_[0], $mode, $expr, @list)) |
| 49 | 0 | 0 | if ($mode eq '|-' or $mode eq '-|') |
| 56 | 0 | 0 | unless (@list) |
| 63 | 0 | 0 | if ('SCALAR' eq ref $expr) |