← Index
NYTProf Performance Profile   « line view »
For /home/ss5/perl5/perlbrew/perls/perl-5.22.0/bin/benchmarkanything-storage
  Run on Mon Jan 29 16:55:34 2018
Reported on Mon Jan 29 16:57:07 2018

Filename/home/ss5/perl5/perlbrew/perls/perl-5.22.0/lib/site_perl/5.22.0/URI/http.pm
StatementsExecuted 8 statements in 110µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11111µs13µsURI::http::::BEGIN@3URI::http::BEGIN@3
1117µs2.32msURI::http::::BEGIN@8URI::http::BEGIN@8
1116µs9µsURI::http::::BEGIN@4URI::http::BEGIN@4
0000s0sURI::http::::canonicalURI::http::canonical
0000s0sURI::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
3218µs214µs
# spent 13µs (11+2) within URI::http::BEGIN@3 which was called: # once (11µs+2µs) by URI::implementor at line 3
use strict;
# spent 13µs making 1 call to URI::http::BEGIN@3 # spent 2µs making 1 call to strict::import
4225µs213µs
# spent 9µs (6+4) within URI::http::BEGIN@4 which was called: # once (6µs+4µs) by URI::implementor at line 4
use warnings;
# spent 9µs making 1 call to URI::http::BEGIN@4 # spent 4µs making 1 call to warnings::import
5
61200nsour $VERSION = "1.69";
7
8265µs24.62ms
# spent 2.32ms (7µs+2.31) within URI::http::BEGIN@8 which was called: # once (7µs+2.31ms) by URI::implementor at line 8
use parent 'URI::_server';
# spent 2.32ms making 1 call to URI::http::BEGIN@8 # spent 2.31ms making 1 call to parent::import
9
10sub default_port { 80 }
11
12sub canonical
13{
14 my $self = shift;
15 my $other = $self->SUPER::canonical;
16
17 my $slash_path = defined($other->authority) &&
18 !length($other->path) && !defined($other->query);
19
20 if ($slash_path) {
21 $other = $other->clone if $other == $self;
22 $other->path("/");
23 }
24 $other;
25}
26
2712µs1;