| lib/IOMux/File/Write.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 20 | 65.0 |
| line | true | false | branch |
|---|---|---|---|
| 23 | 0 | 4 | unless my $file = $args->{'file'} |
| 27 | 4 | 0 | unless (ref $file or defined $flags) |
| 28 | 1 | 3 | if ($mode eq '>>') { } |
| 3 | 0 | elsif ($mode eq '>') { } | |
| 29 | 1 | 2 | if $args->{'append'} |
| 36 | 4 | 0 | unless exists $args->{'create'} and not $args->{'create'} |
| 37 | 2 | 2 | if $args->{'append'} |
| 38 | 0 | 4 | if $args->{'exclusive'} |
| 42 | 0 | 4 | if (ref $file) { } |
| 46 | 0 | 4 | unless sysopen $fh, $file, $flags |