File | /usr/local/lib/perl5/site_perl/5.10.1/URI/http.pm |
Statements Executed | 252 |
Statement Execution Time | 1.15ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
41 | 1 | 1 | 971µs | 7.01ms | canonical | URI::http::
41 | 1 | 1 | 70µs | 70µs | default_port | URI::http::
1 | 1 | 1 | 14µs | 17µs | BEGIN@6 | URI::http::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package URI::http; | ||||
2 | |||||
3 | 1 | 92µs | require URI::_server; | ||
4 | 1 | 5µs | @ISA=qw(URI::_server); | ||
5 | |||||
6 | 3 | 92µs | 2 | 20µs | # spent 17µs (14+3) within URI::http::BEGIN@6 which was called
# once (14µs+3µs) by URI::implementor at line 6 # spent 17µs making 1 call to URI::http::BEGIN@6
# spent 3µs making 1 call to strict::import |
7 | |||||
8 | 41 | 105µs | # spent 70µs within URI::http::default_port which was called 41 times, avg 2µs/call:
# 41 times (70µs+0s) by URI::_server::port at line 123 of URI/_server.pm, avg 2µs/call | ||
9 | |||||
10 | sub canonical | ||||
11 | # spent 7.01ms (971µs+6.04) within URI::http::canonical which was called 41 times, avg 171µs/call:
# 41 times (971µs+6.04ms) by HTTP::Request::uri_canonical at line 93 of HTTP/Request.pm, avg 171µs/call | ||||
12 | 41 | 23µs | my $self = shift; | ||
13 | 41 | 416µs | 41 | 5.24ms | my $other = $self->SUPER::canonical; # spent 5.24ms making 41 calls to URI::_server::canonical, avg 128µs/call |
14 | |||||
15 | 41 | 244µs | 82 | 802µs | my $slash_path = defined($other->authority) && # spent 464µs making 41 calls to URI::_generic::path, avg 11µs/call
# spent 338µs making 41 calls to URI::_generic::authority, avg 8µs/call |
16 | !length($other->path) && !defined($other->query); | ||||
17 | |||||
18 | 41 | 23µs | if ($slash_path) { | ||
19 | $other = $other->clone if $other == $self; | ||||
20 | $other->path("/"); | ||||
21 | } | ||||
22 | 41 | 148µs | $other; | ||
23 | } | ||||
24 | |||||
25 | 1 | 3µs | 1; |