| File | /project/perl/lib/URI/http.pm |
| Statements Executed | 467 |
| Statement Execution Time | 6.64ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 461 | 1 | 1 | 5.46ms | 5.46ms | URI::http::default_port |
| 0 | 0 | 0 | 0s | 0s | URI::http::BEGIN |
| 0 | 0 | 0 | 0s | 0s | URI::http::canonical |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package URI::http; | ||||
| 2 | |||||
| 3 | 1 | 225µs | require URI::_server; | ||
| 4 | 1 | 6µs | @ISA=qw(URI::_server); | ||
| 5 | |||||
| 6 | 3 | 273µs | 1 | 43µs | use strict; # spent 43µs making 1 call to strict::import |
| 7 | |||||
| 8 | 461 | 6.13ms | # spent 5.46ms within URI::http::default_port which was called 461 times, avg 12µs/call:
# 461 times (5.46ms+0s) by URI::_server::port at line 70 of URI/_server.pm, avg 12µs/call | ||
| 9 | |||||
| 10 | sub canonical | ||||
| 11 | { | ||||
| 12 | my $self = shift; | ||||
| 13 | my $other = $self->SUPER::canonical; | ||||
| 14 | |||||
| 15 | my $slash_path = defined($other->authority) && | ||||
| 16 | !length($other->path) && !defined($other->query); | ||||
| 17 | |||||
| 18 | if ($slash_path) { | ||||
| 19 | $other = $other->clone if $other == $self; | ||||
| 20 | $other->path("/"); | ||||
| 21 | } | ||||
| 22 | $other; | ||||
| 23 | } | ||||
| 24 | |||||
| 25 | 1 | 9µs | 1; |