blib/lib/URI/_generic.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 35 | 44 | 79.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
106 | 41 | 314 | 211 | length $path and not $path =~ m[^[/?\#]] |
109 | 23 | 129 | 0 | not length $pre and $path =~ m[^[^:/?\#]+:] |
190 | 0 | 3 | 193 | @p and not length $p[0] |
194 | 466 | 11 | 107 | $p[$i] eq ".." and $p[$i - 1] ne ".." |
209 | 4 | 184 | 8 | @p and $p[-1] eq "." |
211 | 0 | 3 | 9 | @p and $p[0] =~ /^\.\.?$/ |
243 | 2 | 3 | 62 | $scheme eq $bscheme and $auth eq $bauth |
268 | 51 | 7 | 4 | $path eq $bpath and defined $rel->fragment |
58 | 3 | 1 | $path eq $bpath and defined $rel->fragment and not defined $rel->query |
line | l | !l | condition |
---|---|---|---|
50 | 49 | 266 | $user ||= "" |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
160 | 274 | 0 | 0 | shift() || Carp::croak('Missing base argument') |
220 | 67 | 0 | 0 | shift() || Carp::croak('Missing base argument') |
229 | 67 | 0 | 0 | defined $scheme or defined $auth |
259 | 48 | 11 | 78 | $i < 0 or $i != index($bpath, "/", $li) |
59 | 3 | 75 | $i < 0 or $i != index($bpath, "/", $li) or substr($path, $li, $i - $li) ne substr($bpath, $li, $i - $li) |