← 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.pm
StatementsExecuted 76 statements in 820µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
13131284µs84µsRegexp::Common::URI::::register_uriRegexp::Common::URI::register_uri
11126µs109µsRegexp::Common::URI::::BEGIN@3Regexp::Common::URI::BEGIN@3
11112µs17µsRegexp::Common::URI::::BEGIN@5Regexp::Common::URI::BEGIN@5
11112µs71µsRegexp::Common::URI::::BEGIN@9Regexp::Common::URI::BEGIN@9
11111µs89µsRegexp::Common::URI::::BEGIN@14Regexp::Common::URI::BEGIN@14
11111µs24µsRegexp::Common::URI::::BEGIN@17Regexp::Common::URI::BEGIN@17
11110µs20µsRegexp::Common::URI::::BEGIN@6Regexp::Common::URI::BEGIN@6
11110µs42µsRegexp::Common::URI::::BEGIN@19Regexp::Common::URI::BEGIN@19
11110µs14µsRegexp::Common::URI::::BEGIN@16Regexp::Common::URI::BEGIN@16
1116µs6µsRegexp::Common::URI::::BEGIN@8Regexp::Common::URI::BEGIN@8
0000s0sRegexp::Common::URI::::__ANON__[:42]Regexp::Common::URI::__ANON__[:42]
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;
2
3231µs2109µs
# spent 109µs (26+84) within Regexp::Common::URI::BEGIN@3 which was called: # once (26µs+84µs) by Regexp::Common::import at line 3
use Regexp::Common qw /pattern clean no_defaults/;
# spent 109µs making 1 call to Regexp::Common::URI::BEGIN@3 # spent 84µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 84µs
4
5225µs222µs
# spent 17µs (12+5) within Regexp::Common::URI::BEGIN@5 which was called: # once (12µs+5µs) by Regexp::Common::import at line 5
use strict;
# spent 17µs making 1 call to Regexp::Common::URI::BEGIN@5 # spent 5µs making 1 call to strict::import
6224µs230µs
# spent 20µs (10+10) within Regexp::Common::URI::BEGIN@6 which was called: # once (10µs+10µs) by Regexp::Common::import at line 6
use warnings;
# spent 20µs making 1 call to Regexp::Common::URI::BEGIN@6 # spent 10µs making 1 call to warnings::import
7
8232µs16µs
# spent 6µs within Regexp::Common::URI::BEGIN@8 which was called: # once (6µs+0s) by Regexp::Common::import at line 8
use Exporter ();
# spent 6µs making 1 call to Regexp::Common::URI::BEGIN@8
9241µs2131µs
# spent 71µs (12+60) within Regexp::Common::URI::BEGIN@9 which was called: # once (12µs+60µs) by Regexp::Common::import at line 9
use vars qw /@EXPORT_OK @ISA/;
# spent 71µs making 1 call to Regexp::Common::URI::BEGIN@9 # spent 60µs making 1 call to vars::import
10
1118µs@ISA = qw /Exporter/;
1212µs@EXPORT_OK = qw /register_uri/;
13
14225µs289µs
# spent 89µs (11+78) within Regexp::Common::URI::BEGIN@14 which was called: # once (11µs+78µs) by Regexp::Common::import at line 14
use Regexp::Common qw /pattern clean no_defaults/;
# spent 89µs making 1 call to Regexp::Common::URI::BEGIN@14 # spent 78µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 78µs
15
16223µs219µs
# spent 14µs (10+5) within Regexp::Common::URI::BEGIN@16 which was called: # once (10µs+5µs) by Regexp::Common::import at line 16
use strict;
# spent 14µs making 1 call to Regexp::Common::URI::BEGIN@16 # spent 5µs making 1 call to strict::import
17226µs238µs
# spent 24µs (11+13) within Regexp::Common::URI::BEGIN@17 which was called: # once (11µs+13µs) by Regexp::Common::import at line 17
use warnings;
# spent 24µs making 1 call to Regexp::Common::URI::BEGIN@17 # spent 13µs making 1 call to warnings::import
18
192135µs275µs
# spent 42µs (10+32) within Regexp::Common::URI::BEGIN@19 which was called: # once (10µs+32µs) by Regexp::Common::import at line 19
use vars qw /$VERSION/;
# spent 42µs making 1 call to Regexp::Common::URI::BEGIN@19 # spent 32µs making 1 call to vars::import
2011µs$VERSION = '2010010201';
21
22# Use 'require' here, not 'use', so we delay running them after we are compiled.
23# We also do it using an 'eval'; this saves us from have repeated similar
24# lines. The eval is further explained in 'perldoc -f require'.
2513µsmy @uris = qw /fax file ftp gopher http pop prospero news tel telnet tv wais/;
2612µsforeach my $uri (@uris) {
2724313µs eval "require Regexp::Common::URI::$uri";
# spent 130µs executing statements in string eval # spent 125µs executing statements in string eval # spent 112µs executing statements in string eval # spent 108µs executing statements in string eval # spent 108µs executing statements in string eval # spent 108µs executing statements in string eval # spent 105µs executing statements in string eval # spent 105µs executing statements in string eval # spent 104µs executing statements in string eval # spent 104µs executing statements in string eval # spent 103µs executing statements in string eval # spent 102µs executing statements in string eval
28 die $@ if $@;
29}
30
311800nsmy %uris;
32
33
# spent 84µs within Regexp::Common::URI::register_uri which was called 13 times, avg 6µs/call: # once (11µs+0s) by Regexp::Common::import at line 25 of Regexp/Common/URI/ftp.pm # once (10µs+0s) by Regexp::Common::import at line 19 of Regexp/Common/URI/fax.pm # once (7µs+0s) by Regexp::Common::import at line 19 of Regexp/Common/URI/wais.pm # once (6µs+0s) by Regexp::Common::import at line 19 of Regexp/Common/URI/prospero.pm # once (6µs+0s) by Regexp::Common::import at line 19 of Regexp/Common/URI/tel.pm # once (6µs+0s) by Regexp::Common::import at line 17 of Regexp/Common/URI/http.pm # once (6µs+0s) by Regexp::Common::import at line 18 of Regexp/Common/URI/file.pm # once (6µs+0s) by Regexp::Common::import at line 23 of Regexp/Common/URI/news.pm # once (6µs+0s) by Regexp::Common::import at line 32 of Regexp/Common/URI/gopher.pm # once (5µs+0s) by Regexp::Common::import at line 20 of Regexp/Common/URI/pop.pm # once (5µs+0s) by Regexp::Common::import at line 22 of Regexp/Common/URI/news.pm # once (5µs+0s) by Regexp::Common::import at line 17 of Regexp/Common/URI/telnet.pm # once (5µs+0s) by Regexp::Common::import at line 20 of Regexp/Common/URI/tv.pm
sub register_uri {
3426109µs my ($scheme, $uri) = @_;
35 $uris {$scheme} = $uri;
36}
37
38pattern name => [qw (URI)],
39 create => sub {my $uri = join '|' => values %uris;
40 $uri =~ s/\(\?k:/(?:/g;
41 "(?k:$uri)";
42 },
4317µs168µs ;
# spent 68µs making 1 call to Regexp::Common::pattern
44
45112µs1;
46
47__END__