Profile of /project/perl/lib/URI/http.pm

Subroutines — ordered by exclusive time
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
461	1	1	5.46ms	5.46ms	URI::http::::default_portURI::http::default_port
0	0	0	0s	0s	URI::http::::BEGINURI::http::BEGIN
0	0	0	0s	0s	URI::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
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 sub default_port { 80 }
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;