← Index
NYTProf Performance Profile   « block view • line view • sub view »
For bin/hailo
  Run on Thu Oct 21 22:50:37 2010
Reported on Thu Oct 21 22:52:05 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 837µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11126µs125µsRegexp::Common::URI::RFC2396::::BEGIN@3Regexp::Common::URI::RFC2396::BEGIN@3
11117µs17µsRegexp::Common::URI::RFC2396::::BEGIN@19Regexp::Common::URI::RFC2396::BEGIN@19
11117µs907µsRegexp::Common::URI::RFC2396::::BEGIN@32Regexp::Common::URI::RFC2396::BEGIN@32
11115µs111µsRegexp::Common::URI::RFC2396::::BEGIN@11Regexp::Common::URI::RFC2396::BEGIN@11
11111µs20µsRegexp::Common::URI::RFC2396::::BEGIN@6Regexp::Common::URI::RFC2396::BEGIN@6
11111µs16µsRegexp::Common::URI::RFC2396::::BEGIN@5Regexp::Common::URI::RFC2396::BEGIN@5
11110µs43µsRegexp::Common::URI::RFC2396::::BEGIN@8Regexp::Common::URI::RFC2396::BEGIN@8
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
3233µs2125µs
# spent 125µs (26+99) within Regexp::Common::URI::RFC2396::BEGIN@3 which was called: # once (26µs+99µs) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 3
use Regexp::Common qw /pattern clean no_defaults/;
# spent 125µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@3 # spent 99µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 99µs
4
5226µs221µs
# spent 16µs (11+5) within Regexp::Common::URI::RFC2396::BEGIN@5 which was called: # once (11µs+5µ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 5µs making 1 call to strict::import
6226µs228µ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
8234µs276µs
# spent 43µs (10+33) within Regexp::Common::URI::RFC2396::BEGIN@8 which was called: # once (10µs+33µs) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 8
use vars qw /$VERSION/;
# spent 43µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@8 # spent 33µs making 1 call to vars::import
911µs$VERSION = '2010010201';
10
11226µs2207µs
# spent 111µs (15+96) within Regexp::Common::URI::RFC2396::BEGIN@11 which was called: # once (15µs+96µ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 96µs making 1 call to vars::import
12
13280µ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
171900nsmy %vars;
18
19
# spent 17µs within Regexp::Common::URI::RFC2396::BEGIN@19 which was called: # once (17µs+0s) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 30
BEGIN {
20418µ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/];
30131µs117µs}
# spent 17µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@19
31
322416µs21.80ms
# spent 907µs (17+890) within Regexp::Common::URI::RFC2396::BEGIN@32 which was called: # once (17µs+890µs) by Regexp::Common::URI::RFC2806::BEGIN@4 at line 32
use vars map {@$_} values %vars;
# spent 907µs making 1 call to Regexp::Common::URI::RFC2396::BEGIN@32 # spent 890µs making 1 call to vars::import
33
341800ns@EXPORT = ();
35119µs@EXPORT_OK = map {@$_} values %vars;
3618µs%EXPORT_TAGS = (%vars, ALL => [@EXPORT_OK]);
37
38# RFC 2396, base definitions.
3911µs$digit = '[0-9]';
4011µs$upalpha = '[A-Z]';
4111µs$lowalpha = '[a-z]';
4211µs$alpha = '[a-zA-Z]'; # lowalpha | upalpha
4311µs$alphanum = '[a-zA-Z0-9]'; # alpha | digit
4411µs$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 | [:@&=+$,]
5511µs$uric = "(?:[;/?:\@&=+\$,a-zA-Z0-9\\-_.!~*'()]|$escaped)";
56 # reserved | unreserved | escaped
5712µs$urics = "(?:(?:[;/?:\@&=+\$,a-zA-Z0-9\\-_.!~*'()]+|" .
58 "$escaped)*)";
59
601700ns$query = $urics;
611800ns$fragment = $urics;
6212µ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)+)";
6711µs$abs_path = "(?:/$path_segments)";
6812µs$rel_path = "(?:$rel_segment(?:$abs_path)?)";
6914µ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)*)";
8011µs$userinfo_no_colon = "(?:(?:[a-zA-Z0-9\\-_.!~*'();&=+\$,]+|$escaped)*)";
8112µs$server = "(?:(?:$userinfo\@)?$hostport)";
82
8311µs$reg_name = "(?:(?:[a-zA-Z0-9\\-_.!~*'()\$,;:\@&=+]*|$escaped)+)";
8411µs$authority = "(?:$server|$reg_name)";
85
8611µs$scheme = "(?:$alpha"."[a-zA-Z0-9+\\-.]*)";
87
8814µs$net_path = "(?://$authority$abs_path?)";
8912µs$uric_no_slash = "(?:[a-zA-Z0-9\\-_.!~*'();?:\@&=+\$,]|$escaped)";
9012µs$opaque_part = "(?:$uric_no_slash$urics)";
9112µ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))";
9514µs$URI_reference = "(?:(?:$absoluteURI|$relativeURI)?(?:#$fragment)?)";
96
97136µs1;
98
99__END__