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

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Regexp/Common/URI.pm
StatementsExecuted 79 statements in 914µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
13131273µs73µsRegexp::Common::URI::::register_uriRegexp::Common::URI::register_uri
11143µs80µsRegexp::Common::URI::::__ANON__[:42]Regexp::Common::URI::__ANON__[:42]
11138µs38µsRegexp::Common::URI::::CORE:substRegexp::Common::URI::CORE:subst (opcode)
11126µs128µsRegexp::Common::URI::::BEGIN@3Regexp::Common::URI::BEGIN@3
11124µs29µsRegexp::Common::URI::::BEGIN@16Regexp::Common::URI::BEGIN@16
11115µs48µsRegexp::Common::URI::::BEGIN@19Regexp::Common::URI::BEGIN@19
11113µs19µsRegexp::Common::URI::::BEGIN@5Regexp::Common::URI::BEGIN@5
11113µs78µsRegexp::Common::URI::::BEGIN@9Regexp::Common::URI::BEGIN@9
11112µs25µsRegexp::Common::URI::::BEGIN@6Regexp::Common::URI::BEGIN@6
11111µs25µsRegexp::Common::URI::::BEGIN@17Regexp::Common::URI::BEGIN@17
11111µs87µsRegexp::Common::URI::::BEGIN@14Regexp::Common::URI::BEGIN@14
1116µs6µsRegexp::Common::URI::::BEGIN@8Regexp::Common::URI::BEGIN@8
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
3240µs2128µs
# spent 128µs (26+101) within Regexp::Common::URI::BEGIN@3 which was called: # once (26µs+101µs) by Regexp::Common::import at line 3
use Regexp::Common qw /pattern clean no_defaults/;
# spent 128µs making 1 call to Regexp::Common::URI::BEGIN@3 # spent 101µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 101µs
4
5225µs225µs
# spent 19µs (13+6) within Regexp::Common::URI::BEGIN@5 which was called: # once (13µs+6µs) by Regexp::Common::import at line 5
use strict;
# spent 19µs making 1 call to Regexp::Common::URI::BEGIN@5 # spent 6µs making 1 call to strict::import
6228µs238µs
# spent 25µs (12+13) within Regexp::Common::URI::BEGIN@6 which was called: # once (12µs+13µs) by Regexp::Common::import at line 6
use warnings;
# spent 25µs making 1 call to Regexp::Common::URI::BEGIN@6 # spent 13µs making 1 call to warnings::import
7
8225µ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µs2144µs
# spent 78µs (13+66) within Regexp::Common::URI::BEGIN@9 which was called: # once (13µs+66µs) by Regexp::Common::import at line 9
use vars qw /@EXPORT_OK @ISA/;
# spent 78µs making 1 call to Regexp::Common::URI::BEGIN@9 # spent 66µs making 1 call to vars::import
10
1119µs@ISA = qw /Exporter/;
1211µs@EXPORT_OK = qw /register_uri/;
13
14228µs287µs
# spent 87µs (11+76) within Regexp::Common::URI::BEGIN@14 which was called: # once (11µs+76µs) by Regexp::Common::import at line 14
use Regexp::Common qw /pattern clean no_defaults/;
# spent 87µs making 1 call to Regexp::Common::URI::BEGIN@14 # spent 76µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 76µs
15
16226µs234µs
# spent 29µs (24+5) within Regexp::Common::URI::BEGIN@16 which was called: # once (24µs+5µs) by Regexp::Common::import at line 16
use strict;
# spent 29µs making 1 call to Regexp::Common::URI::BEGIN@16 # spent 5µs making 1 call to strict::import
17231µs238µs
# spent 25µ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 25µs making 1 call to Regexp::Common::URI::BEGIN@17 # spent 13µs making 1 call to warnings::import
18
192148µs281µs
# spent 48µs (15+33) within Regexp::Common::URI::BEGIN@19 which was called: # once (15µs+33µs) by Regexp::Common::import at line 19
use vars qw /$VERSION/;
# spent 48µs making 1 call to Regexp::Common::URI::BEGIN@19 # spent 33µ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/;
2613µsforeach my $uri (@uris) {
2712274µs eval "require Regexp::Common::URI::$uri";
# spent 123µs executing statements in string eval # spent 117µs executing statements in string eval # spent 116µs executing statements in string eval # spent 109µs executing statements in string eval # spent 108µs executing statements in string eval # spent 107µ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 102µs executing statements in string eval # spent 101µs executing statements in string eval
281224µs die $@ if $@;
29}
30
3111µsmy %uris;
32
33
# spent 73µs within Regexp::Common::URI::register_uri which was called 13 times, avg 6µs/call: # 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 19 of Regexp/Common/URI/wais.pm # once (6µs+0s) by Regexp::Common::import at line 20 of Regexp/Common/URI/pop.pm # once (6µs+0s) by Regexp::Common::import at line 25 of Regexp/Common/URI/ftp.pm # once (6µs+0s) by Regexp::Common::import at line 22 of Regexp/Common/URI/news.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 18 of Regexp/Common/URI/file.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 19 of Regexp/Common/URI/fax.pm # once (6µ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 32 of Regexp/Common/URI/gopher.pm # once (5µs+0s) by Regexp::Common::import at line 20 of Regexp/Common/URI/tv.pm # once (5µs+0s) by Regexp::Common::import at line 23 of Regexp/Common/URI/news.pm
sub register_uri {
341322µs my ($scheme, $uri) = @_;
351381µs $uris {$scheme} = $uri;
36}
37
38120µspattern name => [qw (URI)],
39
# spent 80µs (43+38) within Regexp::Common::URI::__ANON__[/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Regexp/Common/URI.pm:42] which was called: # once (43µs+38µs) by Regexp::Common::Entry::__ANON__[/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Regexp/Common.pm:268] at line 259 of Regexp/Common.pm
create => sub {my $uri = join '|' => values %uris;
40144µs138µs $uri =~ s/\(\?k:/(?:/g;
# spent 38µs making 1 call to Regexp::Common::URI::CORE:subst
41118µs "(?k:$uri)";
42 },
4317µs162µs ;
# spent 62µs making 1 call to Regexp::Common::pattern
44
45112µs1;
46
47__END__
 
# spent 38µs within Regexp::Common::URI::CORE:subst which was called: # once (38µs+0s) by Regexp::Common::URI::__ANON__[/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Regexp/Common/URI.pm:42] at line 40
sub Regexp::Common::URI::CORE:subst; # opcode