← Index
NYTProf Performance Profile   « block view • line view • sub view »
For ddd2.pl
  Run on Tue May 25 16:52:24 2010
Reported on Tue May 25 16:57:00 2010

File /project/perl/lib/URI/http.pm
Statements Executed 467
Statement Execution Time 6.64ms
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
461115.46ms5.46msURI::http::::default_portURI::http::default_port
0000s0sURI::http::::BEGINURI::http::BEGIN
0000s0sURI::http::::canonicalURI::http::canonical
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
31225µsrequire URI::_server;
416µs@ISA=qw(URI::_server);
5
63273µs143µsuse strict;
# spent 43µs making 1 call to strict::import
7
84616.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
sub default_port { 80 }
9
10sub 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
2519µs1;