Branch Coverage

blib/lib/CPAN/Access/AdHoc/Util.pm
Criterion Covered Total %
branch 9 14 64.2


line true false branch
38 3 14 if $path =~ m[ \A ( [^/] ) / ( \1 [^/] ) / ( \2 [^/]* ) ]msx
40 0 14 if $path =~ m[ \A ( [^/]{2} ) / ( \1 [^/]* ) ]msx
42 0 14 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