← Index
NYTProf Performance Profile   « block view • line view • sub view »
For 01.HTTP.t
  Run on Tue May 4 15:25:55 2010
Reported on Tue May 4 15:26:19 2010

File /usr/local/lib/perl5/site_perl/5.10.1/URI/http.pm
Statements Executed 24
Statement Execution Time 329µs
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
311109µs583µsURI::http::::canonicalURI::http::canonical
11117µs23µsURI::http::::BEGIN@6URI::http::BEGIN@6
3116µs6µsURI::http::::default_portURI::http::default_port
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package URI::http;
2
3185µsrequire URI::_server;
416µs@ISA=qw(URI::_server);
5
63128µs229µs
# spent 23µs (17+6) within URI::http::BEGIN@6 which was called # once (17µs+6µs) by URI::implementor at line 6
use strict;
# spent 23µs making 1 call to URI::http::BEGIN@6 # spent 6µs making 1 call to strict::import
7
839µs
# spent 6µs within URI::http::default_port which was called 3 times, avg 2µs/call: # 3 times (6µs+0s) by URI::_server::port at line 123 of URI/_server.pm, avg 2µs/call
sub default_port { 80 }
9
10sub canonical
11
# spent 583µs (109+474) within URI::http::canonical which was called 3 times, avg 194µs/call: # 3 times (109µs+474µs) by HTTP::Request::uri_canonical at line 93 of HTTP/Request.pm, avg 194µs/call
{
1232µs my $self = shift;
13359µs3411µs my $other = $self->SUPER::canonical;
# spent 411µs making 3 calls to URI::_server::canonical, avg 137µs/call
14
15323µs662µs my $slash_path = defined($other->authority) &&
# spent 36µs making 3 calls to URI::_generic::path, avg 12µs/call # spent 26µs making 3 calls to URI::_generic::authority, avg 9µs/call
16 !length($other->path) && !defined($other->query);
17
1832µs if ($slash_path) {
19 $other = $other->clone if $other == $self;
20 $other->path("/");
21 }
22313µs $other;
23}
24
2513µs1;