Filename | /home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Regexp/Common/URI.pm |
Statements | Executed 79 statements in 914µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
13 | 13 | 12 | 73µs | 73µs | register_uri | Regexp::Common::URI::
1 | 1 | 1 | 43µs | 80µs | __ANON__[:42] | Regexp::Common::URI::
1 | 1 | 1 | 38µs | 38µs | CORE:subst (opcode) | Regexp::Common::URI::
1 | 1 | 1 | 26µs | 128µs | BEGIN@3 | Regexp::Common::URI::
1 | 1 | 1 | 24µs | 29µs | BEGIN@16 | Regexp::Common::URI::
1 | 1 | 1 | 15µs | 48µs | BEGIN@19 | Regexp::Common::URI::
1 | 1 | 1 | 13µs | 19µs | BEGIN@5 | Regexp::Common::URI::
1 | 1 | 1 | 13µs | 78µs | BEGIN@9 | Regexp::Common::URI::
1 | 1 | 1 | 12µs | 25µs | BEGIN@6 | Regexp::Common::URI::
1 | 1 | 1 | 11µs | 25µs | BEGIN@17 | Regexp::Common::URI::
1 | 1 | 1 | 11µs | 87µs | BEGIN@14 | Regexp::Common::URI::
1 | 1 | 1 | 6µs | 6µs | BEGIN@8 | Regexp::Common::URI::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Regexp::Common::URI; | ||||
2 | |||||
3 | 2 | 40µs | 2 | 128µ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 # 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 | |||||
5 | 2 | 25µs | 2 | 25µ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 # spent 19µs making 1 call to Regexp::Common::URI::BEGIN@5
# spent 6µs making 1 call to strict::import |
6 | 2 | 28µs | 2 | 38µ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 # spent 25µs making 1 call to Regexp::Common::URI::BEGIN@6
# spent 13µs making 1 call to warnings::import |
7 | |||||
8 | 2 | 25µs | 1 | 6µs | # spent 6µs within Regexp::Common::URI::BEGIN@8 which was called:
# once (6µs+0s) by Regexp::Common::import at line 8 # spent 6µs making 1 call to Regexp::Common::URI::BEGIN@8 |
9 | 2 | 41µs | 2 | 144µ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 # spent 78µs making 1 call to Regexp::Common::URI::BEGIN@9
# spent 66µs making 1 call to vars::import |
10 | |||||
11 | 1 | 9µs | @ISA = qw /Exporter/; | ||
12 | 1 | 1µs | @EXPORT_OK = qw /register_uri/; | ||
13 | |||||
14 | 2 | 28µs | 2 | 87µ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 # 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 | |||||
16 | 2 | 26µs | 2 | 34µ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 # spent 29µs making 1 call to Regexp::Common::URI::BEGIN@16
# spent 5µs making 1 call to strict::import |
17 | 2 | 31µs | 2 | 38µ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 # spent 25µs making 1 call to Regexp::Common::URI::BEGIN@17
# spent 13µs making 1 call to warnings::import |
18 | |||||
19 | 2 | 148µs | 2 | 81µ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 # spent 48µs making 1 call to Regexp::Common::URI::BEGIN@19
# spent 33µs making 1 call to vars::import |
20 | 1 | 1µ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'. | ||||
25 | 1 | 3µs | my @uris = qw /fax file ftp gopher http pop prospero news tel telnet tv wais/; | ||
26 | 1 | 3µs | foreach my $uri (@uris) { | ||
27 | 24 | 298µ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 | ||
28 | die $@ if $@; | ||||
29 | } | ||||
30 | |||||
31 | 1 | 1µs | my %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 | ||||
34 | 26 | 104µs | my ($scheme, $uri) = @_; | ||
35 | $uris {$scheme} = $uri; | ||||
36 | } | ||||
37 | |||||
38 | 3 | 82µs | pattern 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 | ||||
40 | 1 | 38µs | $uri =~ s/\(\?k:/(?:/g; # spent 38µs making 1 call to Regexp::Common::URI::CORE:subst | ||
41 | "(?k:$uri)"; | ||||
42 | }, | ||||
43 | 1 | 7µs | 1 | 62µs | ; # spent 62µs making 1 call to Regexp::Common::pattern |
44 | |||||
45 | 1 | 12µs | 1; | ||
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 |