URI/Pure.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 20 | 32 | 62.5 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
47 | 8 | 4 | 21 | @n and $n[0] ne '..' |
148 | 31 | 0 | 1 | $iri and $host =~ /xn--/u |
162 | 0 | 0 | 2 | $self->{'scheme'} eq 'http' and $self->{'port'} == 80 |
0 | 0 | 0 | $self->{'scheme'} eq 'https' and $self->{'port'} == 443 |
line | l | !l | condition |
---|---|---|---|
59 | 6 | 1 | $r ||= '.' |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
31 | 25 | 5 | 63 | $p =~ m[\./]u or $p =~ m[/\.]u |
30 | 0 | 63 | $p =~ m[\./]u or $p =~ m[/\.]u or $p =~ m[//]u | |
35 | 9 | 3 | 18 | $p =~ m[/$]u || $p =~ m[/\.$]u || $p =~ m[/\.\.$]u |
67 | 0 | 81 | 0 | ref $proto || $proto |
162 | 2 | 0 | 0 | $self->{'scheme'} eq 'http' and $self->{'port'} == 80 or $self->{'scheme'} eq 'https' and $self->{'port'} == 443 |
221 | 1 | 2 | 0 | $self->{'query'} ||= $base->{'query'} |