| blib/lib/IO/Dir.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 34 | 38.2 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 0 | 3 | unless @_ >= 1 and @_ <= 2 |
| 31 | 3 | 0 | if (@_) |
| 32 | 0 | 3 | unless IO::Dir::open($dh, $_[0]) |
| 46 | 0 | 3 | unless @_ == 2 |
| 49 | 0 | 3 | unless opendir $dh, $dirname |
| 52 | 0 | 3 | if $^O eq "MacOS" and not $dirname =~ /:/ |
| 58 | 0 | 1 | unless @_ == 1 |
| 64 | 0 | 18 | unless @_ == 1 |
| 70 | 0 | 0 | unless @_ == 2 |
| 76 | 0 | 0 | unless @_ == 1 |
| 82 | 0 | 3 | unless @_ == 1 |
| 90 | 0 | 2 | unless my $dh = $class->new($dir) |
| 122 | 0 | 0 | ref $data ? : |
| 124 | 0 | 0 | unless (-e $file) |
| 126 | 0 | 0 | if $io |
| 136 | 1 | 1 | unless do { *$dh }->{'io_dir_unlink'} |
| 140 | 0 | 1 | -d $file ? : |