← Index
NYTProf Performance Profile   « block view • line view • sub view »
For reply.pl
  Run on Thu Oct 21 22:40:13 2010
Reported on Thu Oct 21 22:44:41 2010

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Regexp/Common/URI/RFC2396.pm
StatementsExecuted 68 statements in 830µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11126µs109µsRegexp::Common::URI::RFC2396::::BEGIN@3Regexp::Common::URI::RFC2396::BEGIN@3
11117µs916µsRegexp::Common::URI::RFC2396::::BEGIN@32Regexp::Common::URI::RFC2396::BEGIN@32
11117µs51µsRegexp::Common::URI::RFC2396::::BEGIN@8Regexp::Common::URI::RFC2396::BEGIN@8
11116µs16µsRegexp::Common::URI::RFC2396::::BEGIN@19Regexp::Common::URI::RFC2396::BEGIN@19
11112µs16µsRegexp::Common::URI::RFC2396::::BEGIN@5Regexp::Common::URI::RFC2396::BEGIN@5
11111µs20µsRegexp::Common::URI::RFC2396::::BEGIN@6Regexp::Common::URI::RFC2396::BEGIN@6
11111µs111µsRegexp::Common::URI::RFC2396::::BEGIN@11Regexp::Common::URI::RFC2396::BEGIN@11
1116µs6µsRegexp::Common::URI::RFC2396::::BEGIN@13Regexp::Common::URI::RFC2396::BEGIN@13
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Regexp::Common::URI::RFC2396;
2
3230µs2109µs
# spent 109µs (26+83) within Regexp::Common::URI::RFC2396::BEGIN@3 which was called: # once (26µs+83µs) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 3
use Regexp::Common qw /pattern clean no_defaults/;
# spent 109µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@3 # spent 83µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 83µs
4
5227µs221µs
# spent 16µs (12+4) within Regexp::Common::URI::RFC2396::BEGIN@5 which was called: # once (12µs+4µs) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 5
use strict;
# spent 16µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@5 # spent 4µs making 1 call to strict::import
6228µs229µs
# spent 20µs (11+9) within Regexp::Common::URI::RFC2396::BEGIN@6 which was called: # once (11µs+9µs) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 6
use warnings;
# spent 20µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@6 # spent 9µs making 1 call to warnings::import
7
8239µs285µs
# spent 51µs (17+34) within Regexp::Common::URI::RFC2396::BEGIN@8 which was called: # once (17µs+34µs) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 8
use vars qw /$VERSION/;
# spent 51µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@8 # spent 34µs making 1 call to vars::import
912µs$VERSION = '2010010201';
10
11226µs2212µs
# spent 111µs (11+100) within Regexp::Common::URI::RFC2396::BEGIN@11 which was called: # once (11µs+100µs) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 11
use vars qw /@EXPORT @EXPORT_OK %EXPORT_TAGS @ISA/;
# spent 111µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@11 # spent 100µs making 1 call to vars::import
12
132100µs16µs
# spent 6µs within Regexp::Common::URI::RFC2396::BEGIN@13 which was called: # once (6µs+0s) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 13
use Exporter ();
# spent 6µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@13
1416µs@ISA = qw /Exporter/;
15
16
1711µsmy %vars;
18
19
# spent 16µs within Regexp::Common::URI::RFC2396::BEGIN@19 which was called: # once (16µs+0s) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 30
BEGIN {
20416µs $vars {low} = [qw /$digit $upalpha $lowalpha $alpha $alphanum $hex
21 $escaped $mark $unreserved $reserved $pchar $uric
22 $urics $userinfo $userinfo_no_colon $uric_no_slash/];
23 $vars {parts} = [qw /$query $fragment $param $segment $path_segments
24 $ftp_segments $rel_segment $abs_path $rel_path
25 $path/];
26 $vars {connect} = [qw /$port $IPv4address $toplabel $domainlabel $hostname
27 $host $hostport $server $reg_name $authority/];
28 $vars {URI} = [qw /$scheme $net_path $opaque_part $hier_part
29 $relativeURI $absoluteURI $URI_reference/];
30130µs116µs}
# spent 16µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@19
31
322385µs21.81ms
# spent 916µs (17+899) within Regexp::Common::URI::RFC2396::BEGIN@32 which was called: # once (17µs+899µs) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 32
use vars map {@$_} values %vars;
# spent 916µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@32 # spent 899µs making 1 call to vars::import
33
341900ns@EXPORT = ();
35119µs@EXPORT_OK = map {@$_} values %vars;
3617µs%EXPORT_TAGS = (%vars, ALL => [@EXPORT_OK]);
37
38# RFC 2396, base definitions.
3911µs$digit = '[0-9]';
401800ns$upalpha = '[A-Z]';
411900ns$lowalpha = '[a-z]';
4211µs$alpha = '[a-zA-Z]'; # lowalpha | upalpha
431700ns$alphanum = '[a-zA-Z0-9]'; # alpha | digit
441800ns$hex = '[a-fA-F0-9]';
4512µs$escaped = "(?:%$hex$hex)";
4611µs$mark = "[\\-_.!~*'()]";
4711µs$unreserved = "[a-zA-Z0-9\\-_.!~*'()]"; # alphanum | mark
48 # %61-%7A, %41-%5A, %30-%39
49 # a - z A - Z 0 - 9
50 # %21, %27, %28, %29, %2A, %2D, %2E, %5F, %7E
51 # ! ' ( ) * - . _ ~
5211µs$reserved = "[;/?:@&=+\$,]";
5312µs$pchar = "(?:[a-zA-Z0-9\\-_.!~*'():\@&=+\$,]|$escaped)";
54 # unreserved | escaped | [:@&=+$,]
5512µs$uric = "(?:[;/?:\@&=+\$,a-zA-Z0-9\\-_.!~*'()]|$escaped)";
56 # reserved | unreserved | escaped
5712µs$urics = "(?:(?:[;/?:\@&=+\$,a-zA-Z0-9\\-_.!~*'()]+|" .
58 "$escaped)*)";
59
601900ns$query = $urics;
611700ns$fragment = $urics;
6211µs$param = "(?:(?:[a-zA-Z0-9\\-_.!~*'():\@&=+\$,]+|$escaped)*)";
6312µs$segment = "(?:$param(?:;$param)*)";
6412µs$path_segments = "(?:$segment(?:/$segment)*)";
6512µs$ftp_segments = "(?:$param(?:/$param)*)"; # NOT from RFC 2396.
6612µs$rel_segment = "(?:(?:[a-zA-Z0-9\\-_.!~*'();\@&=+\$,]*|$escaped)+)";
6712µs$abs_path = "(?:/$path_segments)";
6812µs$rel_path = "(?:$rel_segment(?:$abs_path)?)";
6912µs$path = "(?:(?:$abs_path|$rel_path)?)";
70
7111µs$port = "(?:$digit*)";
7212µs$IPv4address = "(?:$digit+[.]$digit+[.]$digit+[.]$digit+)";
7312µs$toplabel = "(?:$alpha"."[-a-zA-Z0-9]*$alphanum|$alpha)";
7412µs$domainlabel = "(?:(?:$alphanum"."[-a-zA-Z0-9]*)?$alphanum)";
7512µs$hostname = "(?:(?:$domainlabel\[.])*$toplabel\[.]?)";
7612µs$host = "(?:$hostname|$IPv4address)";
7712µs$hostport = "(?:$host(?::$port)?)";
78
7912µs$userinfo = "(?:(?:[a-zA-Z0-9\\-_.!~*'();:&=+\$,]+|$escaped)*)";
8012µs$userinfo_no_colon = "(?:(?:[a-zA-Z0-9\\-_.!~*'();&=+\$,]+|$escaped)*)";
8112µs$server = "(?:(?:$userinfo\@)?$hostport)";
82
8312µs$reg_name = "(?:(?:[a-zA-Z0-9\\-_.!~*'()\$,;:\@&=+]*|$escaped)+)";
8412µs$authority = "(?:$server|$reg_name)";
85
8612µs$scheme = "(?:$alpha"."[a-zA-Z0-9+\\-.]*)";
87
8813µs$net_path = "(?://$authority$abs_path?)";
8912µs$uric_no_slash = "(?:[a-zA-Z0-9\\-_.!~*'();?:\@&=+\$,]|$escaped)";
9012µs$opaque_part = "(?:$uric_no_slash$urics)";
9113µs$hier_part = "(?:(?:$net_path|$abs_path)(?:[?]$query)?)";
92
9314µs$relativeURI = "(?:(?:$net_path|$abs_path|$rel_path)(?:[?]$query)?";
9414µs$absoluteURI = "(?:$scheme:(?:$hier_part|$opaque_part))";
9516µs$URI_reference = "(?:(?:$absoluteURI|$relativeURI)?(?:#$fragment)?)";
96
97136µs1;
98
99__END__