| lib/Sweet/Dir.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 10 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 30 | 3 | 3 | if $self->is_a_directory |
| 70 | 3 | 1 | unless defined $builder |
| 87 | 0 | 2 | unless opendir my $dir, $path |
| 91 | 1 | 1 | unless defined $regexp |
| 103 | 1 | 4 | if (scalar @_ == 1 and ref $_[0] eq 'ARRAY') { } |