← 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/RFC1035.pm
StatementsExecuted 32 statements in 375µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11126µs110µsRegexp::Common::URI::RFC1035::::BEGIN@3Regexp::Common::URI::RFC1035::BEGIN@3
11114µs194µsRegexp::Common::URI::RFC1035::::BEGIN@24Regexp::Common::URI::RFC1035::BEGIN@24
11112µs46µsRegexp::Common::URI::RFC1035::::BEGIN@8Regexp::Common::URI::RFC1035::BEGIN@8
11111µs15µsRegexp::Common::URI::RFC1035::::BEGIN@5Regexp::Common::URI::RFC1035::BEGIN@5
11110µs20µsRegexp::Common::URI::RFC1035::::BEGIN@6Regexp::Common::URI::RFC1035::BEGIN@6
11110µs10µsRegexp::Common::URI::RFC1035::::BEGIN@18Regexp::Common::URI::RFC1035::BEGIN@18
11110µs109µsRegexp::Common::URI::RFC1035::::BEGIN@11Regexp::Common::URI::RFC1035::BEGIN@11
1116µs6µsRegexp::Common::URI::RFC1035::::BEGIN@13Regexp::Common::URI::RFC1035::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::RFC1035;
2
3228µs2110µs
# spent 110µs (26+84) within Regexp::Common::URI::RFC1035::BEGIN@3 which was called: # once (26µs+84µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 3
use Regexp::Common qw /pattern clean no_defaults/;
# spent 110µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@3 # spent 84µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 84µs
4
5228µs219µs
# spent 15µs (11+4) within Regexp::Common::URI::RFC1035::BEGIN@5 which was called: # once (11µs+4µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 5
use strict;
# spent 15µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@5 # spent 4µs making 1 call to strict::import
6226µs229µs
# spent 20µs (10+9) within Regexp::Common::URI::RFC1035::BEGIN@6 which was called: # once (10µs+9µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 6
use warnings;
# spent 20µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@6 # spent 9µs making 1 call to warnings::import
7
8234µs280µs
# spent 46µs (12+34) within Regexp::Common::URI::RFC1035::BEGIN@8 which was called: # once (12µs+34µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 8
use vars qw /$VERSION/;
# spent 46µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@8 # spent 34µs making 1 call to vars::import
912µs$VERSION = '2010010201';
10
11226µs2208µs
# spent 109µs (10+99) within Regexp::Common::URI::RFC1035::BEGIN@11 which was called: # once (10µs+99µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 11
use vars qw /@EXPORT @EXPORT_OK %EXPORT_TAGS @ISA/;
# spent 109µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@11 # spent 99µs making 1 call to vars::import
12
13254µs16µs
# spent 6µs within Regexp::Common::URI::RFC1035::BEGIN@13 which was called: # once (6µs+0s) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 13
use Exporter ();
# spent 6µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@13
1415µs@ISA = qw /Exporter/;
15
161900nsmy %vars;
17
18
# spent 10µs within Regexp::Common::URI::RFC1035::BEGIN@18 which was called: # once (10µs+0s) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 22
BEGIN {
19310µs $vars {low} = [qw /$digit $letter $let_dig $let_dig_hyp $ldh_str/];
20 $vars {parts} = [qw /$label $subdomain/];
21 $vars {domain} = [qw /$domain/];
22134µs110µs}
# spent 10µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@18
23
24296µs2375µs
# spent 194µs (14+181) within Regexp::Common::URI::RFC1035::BEGIN@24 which was called: # once (14µs+181µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 24
use vars map {@$_} values %vars;
# spent 194µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@24 # spent 180µs making 1 call to vars::import
25
2612µs@EXPORT = qw /$host/;
2715µs@EXPORT_OK = map {@$_} values %vars;
2814µs%EXPORT_TAGS = (%vars, ALL => [@EXPORT_OK]);
29
30# RFC 1035.
3111µs$digit = "[0-9]";
321800ns$letter = "[A-Za-z]";
3311µs$let_dig = "[A-Za-z0-9]";
3411µs$let_dig_hyp = "[-A-Za-z0-9]";
3511µs$ldh_str = "(?:[-A-Za-z0-9]+)";
3612µs$label = "(?:$letter(?:(?:$ldh_str){0,61}$let_dig)?)";
3712µs$subdomain = "(?:$label(?:[.]$label)*)";
3812µs$domain = "(?: |(?:$subdomain))";
39
40
41110µs1;
42
43__END__