← 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/RFC1035.pm
StatementsExecuted 32 statements in 378µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11124µs112µsRegexp::Common::URI::RFC1035::::BEGIN@3Regexp::Common::URI::RFC1035::BEGIN@3
11114µs191µsRegexp::Common::URI::RFC1035::::BEGIN@24Regexp::Common::URI::RFC1035::BEGIN@24
11111µs16µsRegexp::Common::URI::RFC1035::::BEGIN@5Regexp::Common::URI::RFC1035::BEGIN@5
11111µs108µsRegexp::Common::URI::RFC1035::::BEGIN@11Regexp::Common::URI::RFC1035::BEGIN@11
11110µs47µsRegexp::Common::URI::RFC1035::::BEGIN@8Regexp::Common::URI::RFC1035::BEGIN@8
11110µs19µsRegexp::Common::URI::RFC1035::::BEGIN@6Regexp::Common::URI::RFC1035::BEGIN@6
11110µs10µsRegexp::Common::URI::RFC1035::::BEGIN@18Regexp::Common::URI::RFC1035::BEGIN@18
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
3229µs2112µs
# spent 112µs (24+87) within Regexp::Common::URI::RFC1035::BEGIN@3 which was called: # once (24µs+87µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 3
use Regexp::Common qw /pattern clean no_defaults/;
# spent 112µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@3 # spent 87µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 87µs
4
5225µs221µs
# spent 16µs (11+5) within Regexp::Common::URI::RFC1035::BEGIN@5 which was called: # once (11µs+5µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 5
use strict;
# spent 16µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@5 # spent 5µs making 1 call to strict::import
6226µs227µs
# spent 19µ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 19µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@6 # spent 9µs making 1 call to warnings::import
7
8236µs284µs
# spent 47µs (10+37) within Regexp::Common::URI::RFC1035::BEGIN@8 which was called: # once (10µs+37µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 8
use vars qw /$VERSION/;
# spent 47µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@8 # spent 37µs making 1 call to vars::import
911µs$VERSION = '2010010201';
10
11230µs2205µs
# spent 108µs (11+97) within Regexp::Common::URI::RFC1035::BEGIN@11 which was called: # once (11µs+97µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 11
use vars qw /@EXPORT @EXPORT_OK %EXPORT_TAGS @ISA/;
# spent 108µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@11 # spent 97µs making 1 call to vars::import
12
13252µ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
1611µsmy %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/];
22128µs110µs}
# spent 10µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@18
23
242100µs2368µs
# spent 191µs (14+177) within Regexp::Common::URI::RFC1035::BEGIN@24 which was called: # once (14µs+177µs) by Regexp::Common::URI::RFC2806::BEGIN@3 at line 24
use vars map {@$_} values %vars;
# spent 191µs making 1 call to Regexp::Common::URI::RFC1035::BEGIN@24 # spent 177µs making 1 call to vars::import
25
2612µs@EXPORT = qw /$host/;
2718µs@EXPORT_OK = map {@$_} values %vars;
2814µs%EXPORT_TAGS = (%vars, ALL => [@EXPORT_OK]);
29
30# RFC 1035.
311900ns$digit = "[0-9]";
3211µs$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)*)";
3811µs$domain = "(?: |(?:$subdomain))";
39
40
41110µs1;
42
43__END__