| blib/lib/filename.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 0 | 54 | unless eval { do { $_[0]->isa('filename') } } and shift() |
| 26 | 14 | 40 | @_ ? : |
| 27 | 0 | 54 | unless length $filename |
| 29 | 15 | 39 | if exists $INC{$filename} |
| 31 | 19 | 20 | if ('File::Spec'->file_name_is_absolute($filename)) |
| 32 | 0 | 19 | if $^V < v5.17.0 and not -r $filename |
| 40 | 0 | 20 | unless -f (my $fullpath = "$prefix/$filename") |
| 41 | 0 | 20 | if $^V < v5.17.0 and not -r _ |