| 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 | Regexp::Common::URI::register_uri |
| 1 | 1 | 1 | 43µs | 80µs | Regexp::Common::URI::__ANON__[:42] |
| 1 | 1 | 1 | 38µs | 38µs | Regexp::Common::URI::CORE:subst (opcode) |
| 1 | 1 | 1 | 26µs | 128µs | Regexp::Common::URI::BEGIN@3 |
| 1 | 1 | 1 | 24µs | 29µs | Regexp::Common::URI::BEGIN@16 |
| 1 | 1 | 1 | 15µs | 48µs | Regexp::Common::URI::BEGIN@19 |
| 1 | 1 | 1 | 13µs | 19µs | Regexp::Common::URI::BEGIN@5 |
| 1 | 1 | 1 | 13µs | 78µs | Regexp::Common::URI::BEGIN@9 |
| 1 | 1 | 1 | 12µs | 25µs | Regexp::Common::URI::BEGIN@6 |
| 1 | 1 | 1 | 11µs | 25µs | Regexp::Common::URI::BEGIN@17 |
| 1 | 1 | 1 | 11µs | 87µs | Regexp::Common::URI::BEGIN@14 |
| 1 | 1 | 1 | 6µs | 6µs | Regexp::Common::URI::BEGIN@8 |
| 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 | 12 | 274µ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 | 12 | 24µs | 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 |