← 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:44 2010

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Regexp/Common/URI/RFC2806.pm
StatementsExecuted 66 statements in 1.22ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111890µs2.90msRegexp::Common::URI::RFC2806::::BEGIN@4Regexp::Common::URI::RFC2806::BEGIN@4
111421µs1.12msRegexp::Common::URI::RFC2806::::BEGIN@3Regexp::Common::URI::RFC2806::BEGIN@3
11117µs832µsRegexp::Common::URI::RFC2806::::BEGIN@42Regexp::Common::URI::RFC2806::BEGIN@42
11117µs17µsRegexp::Common::URI::RFC2806::::BEGIN@20Regexp::Common::URI::RFC2806::BEGIN@20
11111µs16µsRegexp::Common::URI::RFC2806::::BEGIN@6Regexp::Common::URI::RFC2806::BEGIN@6
11111µs20µsRegexp::Common::URI::RFC2806::::BEGIN@7Regexp::Common::URI::RFC2806::BEGIN@7
11111µs106µsRegexp::Common::URI::RFC2806::::BEGIN@12Regexp::Common::URI::RFC2806::BEGIN@12
11110µs43µsRegexp::Common::URI::RFC2806::::BEGIN@9Regexp::Common::URI::RFC2806::BEGIN@9
1116µs6µsRegexp::Common::URI::RFC2806::::BEGIN@14Regexp::Common::URI::RFC2806::BEGIN@14
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::RFC2806;
2
32144µs21.32ms
# spent 1.12ms (421µs+703µs) within Regexp::Common::URI::RFC2806::BEGIN@3 which was called: # once (421µs+703µs) by Regexp::Common::URI::fax::BEGIN@5 at line 3
use Regexp::Common::URI::RFC1035 qw /$domain/;
# spent 1.12ms making 1 call to Regexp::Common::URI::RFC2806::BEGIN@3 # spent 192µs making 1 call to Exporter::import
42174µs23.67ms
# spent 2.90ms (890µs+2.01) within Regexp::Common::URI::RFC2806::BEGIN@4 which was called: # once (890µs+2.01ms) by Regexp::Common::URI::fax::BEGIN@5 at line 4
use Regexp::Common::URI::RFC2396 qw /$unreserved $escaped $hex/;
# spent 2.90ms making 1 call to Regexp::Common::URI::RFC2806::BEGIN@4 # spent 768µs making 1 call to Exporter::import
5
6225µs221µs
# spent 16µs (11+5) within Regexp::Common::URI::RFC2806::BEGIN@6 which was called: # once (11µs+5µs) by Regexp::Common::URI::fax::BEGIN@5 at line 6
use strict;
# spent 16µs making 1 call to Regexp::Common::URI::RFC2806::BEGIN@6 # spent 5µs making 1 call to strict::import
7226µs229µs
# spent 20µs (11+9) within Regexp::Common::URI::RFC2806::BEGIN@7 which was called: # once (11µs+9µs) by Regexp::Common::URI::fax::BEGIN@5 at line 7
use warnings;
# spent 20µs making 1 call to Regexp::Common::URI::RFC2806::BEGIN@7 # spent 9µs making 1 call to warnings::import
8
9233µs275µs
# spent 43µs (10+32) within Regexp::Common::URI::RFC2806::BEGIN@9 which was called: # once (10µs+32µs) by Regexp::Common::URI::fax::BEGIN@5 at line 9
use vars qw /$VERSION/;
# spent 43µs making 1 call to Regexp::Common::URI::RFC2806::BEGIN@9 # spent 32µs making 1 call to vars::import
1012µs$VERSION = '2010010201';
11
12226µs2202µs
# spent 106µs (11+96) within Regexp::Common::URI::RFC2806::BEGIN@12 which was called: # once (11µs+96µs) by Regexp::Common::URI::fax::BEGIN@5 at line 12
use vars qw /@EXPORT @EXPORT_OK %EXPORT_TAGS @ISA/;
# spent 106µs making 1 call to Regexp::Common::URI::RFC2806::BEGIN@12 # spent 96µs making 1 call to vars::import
13
14278µs16µs
# spent 6µs within Regexp::Common::URI::RFC2806::BEGIN@14 which was called: # once (6µs+0s) by Regexp::Common::URI::fax::BEGIN@5 at line 14
use Exporter ();
# spent 6µs making 1 call to Regexp::Common::URI::RFC2806::BEGIN@14
1516µs@ISA = qw /Exporter/;
16
17
1811µsmy %vars;
19
20
# spent 17µs within Regexp::Common::URI::RFC2806::BEGIN@20 which was called: # once (17µs+0s) by Regexp::Common::URI::fax::BEGIN@5 at line 40
BEGIN {
2113µs $vars {low} = [qw /$dtmf_digit $wait_for_dial_tone $one_second_pause
22 $pause_character $visual_separator $phonedigit
23 $escaped_no_dquote $quoted_string $token_char
24 $token_chars/];
2512µs $vars {parts} = [qw /$future_extension/];
2612µs $vars {connect} = [qw /$provider_hostname $provider_tag $service_provider
27 $private_prefix $local_network_prefix
28 $global_network_prefix $network_prefix/];
2913µs $vars {phone} = [qw /$phone_context_ident $phone_context_tag
30 $area_specifier $post_dial $isdn_subaddress
31 $t33_subaddress $local_phone_number
32 $local_phone_number_no_future
33 $base_phone_number $global_phone_number
34 $global_phone_number_no_future $telephone_subscriber
35 $telephone_subscriber_no_future/];
3612µs $vars {fax} = [qw /$fax_local_phone $fax_local_phone_no_future
37 $fax_global_phone $fax_global_phone_no_future
38 $fax_subscriber $fax_subscriber_no_future/];
3915µs $vars {modem} = [qw //];
40130µs117µs}
# spent 17µs making 1 call to Regexp::Common::URI::RFC2806::BEGIN@20
41
422502µs21.65ms
# spent 832µs (17+816) within Regexp::Common::URI::RFC2806::BEGIN@42 which was called: # once (17µs+816µs) by Regexp::Common::URI::fax::BEGIN@5 at line 42
use vars map {@$_} values %vars;
# spent 832µs making 1 call to Regexp::Common::URI::RFC2806::BEGIN@42 # spent 816µs making 1 call to vars::import
43
441800ns@EXPORT = ();
45118µs@EXPORT_OK = map {@$_} values %vars;
4618µs%EXPORT_TAGS = (%vars, ALL => [@EXPORT_OK]);
47
48
49# RFC 2806, URIs for tel, fax & modem.
5011µs$dtmf_digit = "(?:[*#ABCD])";
5111µs$wait_for_dial_tone= "(?:w)";
5211µs$one_second_pause = "(?:p)";
5311µs$pause_character = "(?:[wp])"; # wait_for_dial_tone | one_second_pause.
5411µs$visual_separator = "(?:[\\-.()])";
5511µs$phonedigit = "(?:[0-9\\-.()])"; # DIGIT | visual_separator
5612µs$escaped_no_dquote = "(?:%(?:[01]$hex)|2[013-9A-Fa-f]|[3-9A-Fa-f]$hex)";
5713µs$quoted_string = "(?:%22(?:(?:%5C(?:$unreserved|$escaped))|" .
58 "$unreserved+|$escaped_no_dquote)*%22)";
59 # It is unclear wether we can allow only unreserved
60 # characters to unescaped, or can we also use uric
61 # characters that are unescaped? Or pchars?
6211µs$token_char = "(?:[!'*\\-.0-9A-Z_a-z~]|" .
63 "%(?:2[13-7ABDEabde]|3[0-9]|4[1-9A-Fa-f]|" .
64 "5[AEFaef]|6[0-9A-Fa-f]|7[0-9ACEace]))";
65 # Only allowing unreserved chars to be unescaped.
6611µs$token_chars = "(?:(?:[!'*\\-.0-9A-Z_a-z~]+|" .
67 "%(?:2[13-7ABDEabde]|3[0-9]|4[1-9A-Fa-f]|" .
68 "5[AEFaef]|6[0-9A-Fa-f]|7[0-9ACEace]))*)";
6914µs$future_extension = "(?:;$token_chars" .
70 "(?:=(?:(?:$token_chars(?:[?]$token_chars)?)|" .
71 "$quoted_string))?)";
7211µs$provider_hostname = $domain;
7311µs$provider_tag = "(?:tsp)";
7412µs$service_provider = "(?:;$provider_tag=$provider_hostname)";
7511µs$private_prefix = "(?:(?:[!'E-OQ-VX-Z_e-oq-vx-z~]|" .
76 "(?:%(?:2[124-7CFcf]|3[AC-Fac-f]|4[05-9A-Fa-f]|" .
77 "5[1-689A-Fa-f]|6[05-9A-Fa-f]|" .
78 "7[1-689A-Ea-e])))" .
79 "(?:[!'()*\\-.0-9A-Z_a-z~]+|" .
80 "(?:%(?:2[1-9A-Fa-f]|3[AC-Fac-f]|" .
81 "[4-6][0-9A-Fa-f]|7[0-9A-Ea-e])))*)";
8211µs$local_network_prefix
83 = "(?:[0-9\\-.()*#ABCDwp]+)";
8411µs$global_network_prefix
85 = "(?:[+][0-9\\-.()]+)";
8612µs$network_prefix = "(?:$global_network_prefix|$local_network_prefix)";
8712µs$phone_context_ident
88 = "(?:$network_prefix|$private_prefix)";
891900ns$phone_context_tag = "(?:phone-context)";
9012µs$area_specifier = "(?:;$phone_context_tag=$phone_context_ident)";
9111µs$post_dial = "(?:;postd=[0-9\\-.()*#ABCDwp]+)";
921700ns$isdn_subaddress = "(?:;isub=[0-9\\-.()]+)";
931800ns$t33_subaddress = "(?:;tsub=[0-9\\-.()]+)";
94
9515µs$local_phone_number= "(?:[0-9\\-.()*#ABCDwp]+$isdn_subaddress?" .
96 "$post_dial?$area_specifier" .
97 "(?:$area_specifier|$service_provider|" .
98 "$future_extension)*)";
9914µs$local_phone_number_no_future
100 = "(?:[0-9\\-.()*#ABCDwp]+$isdn_subaddress?" .
101 "$post_dial?$area_specifier" .
102 "(?:$area_specifier|$service_provider)*)";
10315µs$fax_local_phone = "(?:[0-9\\-.()*#ABCDwp]+$isdn_subaddress?" .
104 "$t33_subaddress?$post_dial?$area_specifier" .
105 "(?:$area_specifier|$service_provider|" .
106 "$future_extension)*)";
10714µs$fax_local_phone_no_future
108 = "(?:[0-9\\-.()*#ABCDwp]+$isdn_subaddress?" .
109 "$t33_subaddress?$post_dial?$area_specifier" .
110 "(?:$area_specifier|$service_provider)*)";
11111µs$base_phone_number = "(?:[0-9\\-.()]+)";
11215µs$global_phone_number
113 = "(?:[+]$base_phone_number$isdn_subaddress?" .
114 "$post_dial?" .
115 "(?:$area_specifier|$service_provider|" .
116 "$future_extension)*)";
11714µs$global_phone_number_no_future
118 = "(?:[+]$base_phone_number$isdn_subaddress?" .
119 "$post_dial?" .
120 "(?:$area_specifier|$service_provider)*)";
12115µs$fax_global_phone = "(?:[+]$base_phone_number$isdn_subaddress?" .
122 "$t33_subaddress?$post_dial?" .
123 "(?:$area_specifier|$service_provider|" .
124 "$future_extension)*)";
12514µs$fax_global_phone_no_future
126 = "(?:[+]$base_phone_number$isdn_subaddress?" .
127 "$t33_subaddress?$post_dial?" .
128 "(?:$area_specifier|$service_provider)*)";
12916µs$telephone_subscriber
130 = "(?:$global_phone_number|$local_phone_number)";
13117µs$telephone_subscriber_no_future
132 = "(?:$global_phone_number_no_future|" .
133 "$local_phone_number_no_future)";
13415µs$fax_subscriber = "(?:$fax_global_phone|$fax_local_phone)";
13513µs$fax_subscriber_no_future
136 = "(?:$fax_global_phone_no_future|" .
137 "$fax_local_phone_no_future)";
138
139140µs1;
140
141__END__