| blib/lib/CPAN/Access/AdHoc/Util.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 14 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 38 | 7 | 8 | if $path =~ m[ \A ( [^/] ) / ( \1 [^/] ) / ( \2 [^/]* ) ]msx |
| 40 | 0 | 8 | if $path =~ m[ \A ( [^/]{2} ) / ( \1 [^/]* ) ]msx |
| 42 | 0 | 8 | unless $path =~ m[ \A ( [^/]+ ) ]msx |
| 58 | 53 | 0 | if (defined $path) { } |
| 61 | 0 | 0 | unless defined($path = $resp->header('Content-Location')) |
| 68 | 45 | 4 | unless $expand_ending{$1} |
| 81 | 1 | 16 | unless $module =~ / \A [[:alpha:]_] \w* (?: :: [[:alpha:]_] \w* )* \z /msx |