← 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/RFC2384.pm
StatementsExecuted 38 statements in 462µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11126µs106µsRegexp::Common::URI::RFC2384::::BEGIN@4Regexp::Common::URI::RFC2384::BEGIN@4
11114µs278µsRegexp::Common::URI::RFC2384::::BEGIN@28Regexp::Common::URI::RFC2384::BEGIN@28
11111µs166µsRegexp::Common::URI::RFC2384::::BEGIN@5Regexp::Common::URI::RFC2384::BEGIN@5
11111µs44µsRegexp::Common::URI::RFC2384::::BEGIN@10Regexp::Common::URI::RFC2384::BEGIN@10
11111µs105µsRegexp::Common::URI::RFC2384::::BEGIN@13Regexp::Common::URI::RFC2384::BEGIN@13
11110µs16µsRegexp::Common::URI::RFC2384::::BEGIN@7Regexp::Common::URI::RFC2384::BEGIN@7
11110µs19µsRegexp::Common::URI::RFC2384::::BEGIN@8Regexp::Common::URI::RFC2384::BEGIN@8
11110µs10µsRegexp::Common::URI::RFC2384::::BEGIN@21Regexp::Common::URI::RFC2384::BEGIN@21
1116µs6µsRegexp::Common::URI::RFC2384::::BEGIN@15Regexp::Common::URI::RFC2384::BEGIN@15
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::RFC2384;
2
3
4230µs2106µs
# spent 106µs (26+80) within Regexp::Common::URI::RFC2384::BEGIN@4 which was called: # once (26µs+80µs) by Regexp::Common::URI::pop::BEGIN@6 at line 4
use Regexp::Common qw /pattern clean no_defaults/;
# spent 106µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@4 # spent 80µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 80µs
5227µs2322µs
# spent 166µs (11+155) within Regexp::Common::URI::RFC2384::BEGIN@5 which was called: # once (11µs+155µs) by Regexp::Common::URI::pop::BEGIN@6 at line 5
use Regexp::Common::URI::RFC1738 qw /$unreserved_range $escape $hostport/;
# spent 166µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@5 # spent 155µs making 1 call to Exporter::import
6
7224µs220µs
# spent 16µs (10+5) within Regexp::Common::URI::RFC2384::BEGIN@7 which was called: # once (10µs+5µs) by Regexp::Common::URI::pop::BEGIN@6 at line 7
use strict;
# spent 16µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@7 # spent 5µs making 1 call to strict::import
8227µs228µs
# spent 19µs (10+9) within Regexp::Common::URI::RFC2384::BEGIN@8 which was called: # once (10µs+9µs) by Regexp::Common::URI::pop::BEGIN@6 at line 8
use warnings;
# spent 19µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@8 # spent 9µs making 1 call to warnings::import
9
10233µs277µs
# spent 44µs (11+33) within Regexp::Common::URI::RFC2384::BEGIN@10 which was called: # once (11µs+33µs) by Regexp::Common::URI::pop::BEGIN@6 at line 10
use vars qw /$VERSION/;
# spent 44µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@10 # spent 33µs making 1 call to vars::import
1112µs$VERSION = '2010010201';
12
13226µs2200µs
# spent 105µs (11+94) within Regexp::Common::URI::RFC2384::BEGIN@13 which was called: # once (11µs+94µs) by Regexp::Common::URI::pop::BEGIN@6 at line 13
use vars qw /@EXPORT @EXPORT_OK %EXPORT_TAGS @ISA/;
# spent 105µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@13 # spent 94µs making 1 call to vars::import
14
15256µs16µs
# spent 6µs within Regexp::Common::URI::RFC2384::BEGIN@15 which was called: # once (6µs+0s) by Regexp::Common::URI::pop::BEGIN@6 at line 15
use Exporter ();
# spent 6µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@15
1618µs@ISA = qw /Exporter/;
17
18
1911µsmy %vars;
20
21
# spent 10µs within Regexp::Common::URI::RFC2384::BEGIN@21 which was called: # once (10µs+0s) by Regexp::Common::URI::pop::BEGIN@6 at line 26
BEGIN {
2213µs $vars {low} = [qw /$achar_range $achar $achars $achar_more/];
2312µs $vars {connect} = [qw /$enc_sasl $enc_user $enc_ext $enc_auth_type $auth
24 $user_auth $server/];
2516µs $vars {parts} = [qw /$pop_url/];
26128µs110µs}
# spent 10µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@21
27
282140µs2542µs
# spent 278µs (14+264) within Regexp::Common::URI::RFC2384::BEGIN@28 which was called: # once (14µs+264µs) by Regexp::Common::URI::pop::BEGIN@6 at line 28
use vars map {@$_} values %vars;
# spent 278µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@28 # spent 264µs making 1 call to vars::import
29
3012µs@EXPORT = qw /$host/;
3117µs@EXPORT_OK = map {@$_} values %vars;
3214µs%EXPORT_TAGS = (%vars, ALL => [@EXPORT_OK]);
33
34# RFC 2384, POP3.
35
36# Lowlevel definitions.
3712µs$achar_range = "$unreserved_range&=~";
3812µs$achar = "(?:[$achar_range]|$escape)";
3912µs$achars = "(?:(?:[$achar_range]+|$escape)*)";
4012µs$achar_more = "(?:(?:[$achar_range]+|$escape)+)";
4111µs$enc_sasl = $achar_more;
4211µs$enc_user = $achar_more;
4311µs$enc_ext = "(?:[+](?:APOP|$achar_more))";
4412µs$enc_auth_type = "(?:$enc_sasl|$enc_ext)";
4512µs$auth = "(?:;AUTH=(?:[*]|$enc_auth_type))";
4612µs$user_auth = "(?:$enc_user$auth?)";
4712µs$server = "(?:(?:$user_auth\@)?$hostport)";
4812µs$pop_url = "(?:pop://$server)";
49
50
51115µs1;
52
53__END__