| blib/lib/URI/_server.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 23 | 23 | 100.0 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 68 | 3 | 15 | 76 | defined $old and $old =~ /(.*)@/ |
| 89 | 22 | 4 | 11 | $new =~ /:/ and not $new =~ /^\[/ |
| 123 | 77 | 340 | 63 | defined $old and $old =~ /:(\d*)$/ |
| 157 | 370 | 9 | 9 | defined $port && ($port eq '' || $port == $self->default_port) |
| line | l | !l | condition |
|---|---|---|---|
| 154 | 314 | 74 | $other->host || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 85 | 2 | 3 | 32 | $new =~ /^[^:]*:\d*\z/ or $new =~ /]:\d*\z/ |
| 131 | 46 | 8 | 37 | not defined $port or $port eq "" |
| 159 | 15 | 4 | 369 | $uc_host or $def_port |