| blib/lib/filename.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 11 | 16 | 68.7 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 0 | 18 | unless eval { do { $_[0]->isa('filename') } } and shift() |
| 19 | 4 | 14 | @_ ? : |
| 20 | 0 | 18 | unless length $filename |
| 22 | 2 | 16 | if exists $INC{$filename} |
| 24 | 8 | 8 | if ($filename =~ m[\A/]) |
| 25 | 0 | 8 | if $^V < v5.17.0 and not -r $filename |
| 29 | 0 | 8 | unless -f (my $fullpath = "$prefix/$filename") |
| 30 | 0 | 8 | if $^V < v5.17.0 and not -r _ |