| blib/lib/URI/_server.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 29 | 29 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 68 | 3 | 26 | 107 | defined $old and $old =~ /(.*)@/ |
| 89 | 23 | 4 | 11 | $new =~ /:/ and not $new =~ /^\[/ |
| 123 | 77 | 361 | 114 | defined $old and $old =~ /:(\d*)$/ |
| 157 | 372 | 22 | 16 | defined $port && ($port eq '' || $port == $self->default_port) |
| 160 | 372 | 13 | 9 | !$def_port && defined $port && $port ne '' && $port =~ /^0\d/ |
| line | l | !l | condition |
|---|---|---|---|
| 154 | 336 | 74 | $other->host || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 85 | 2 | 3 | 33 | $new =~ /^[^:]*:\d*\z/ or $new =~ /]:\d*\z/ |
| 131 | 65 | 12 | 55 | not defined $port or $port eq "" |
| 161 | 15 | 11 | 384 | $uc_host or $def_port |
| 26 | 9 | 375 | $uc_host or $def_port or $norm_port |