| 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'} |