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

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Regexp/Common/URI/wais.pm
StatementsExecuted 18 statements in 271µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11126µs116µsRegexp::Common::URI::wais::::BEGIN@3Regexp::Common::URI::wais::BEGIN@3
11114µs59µsRegexp::Common::URI::wais::::BEGIN@4Regexp::Common::URI::wais::BEGIN@4
11114µs20µsRegexp::Common::URI::wais::::BEGIN@8Regexp::Common::URI::wais::BEGIN@8
11112µs48µsRegexp::Common::URI::wais::::BEGIN@11Regexp::Common::URI::wais::BEGIN@11
11112µs224µsRegexp::Common::URI::wais::::BEGIN@5Regexp::Common::URI::wais::BEGIN@5
11110µs22µsRegexp::Common::URI::wais::::BEGIN@9Regexp::Common::URI::wais::BEGIN@9
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::wais;
2
3234µs2116µs
# spent 116µs (26+90) within Regexp::Common::URI::wais::BEGIN@3 which was called: # once (26µs+90µs) by Regexp::Common::import at line 3
use Regexp::Common qw /pattern clean no_defaults/;
# spent 116µs making 1 call to Regexp::Common::URI::wais::BEGIN@3 # spent 90µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 90µs
4233µs2103µs
# spent 59µs (14+44) within Regexp::Common::URI::wais::BEGIN@4 which was called: # once (14µs+44µs) by Regexp::Common::import at line 4
use Regexp::Common::URI qw /register_uri/;
# spent 59µs making 1 call to Regexp::Common::URI::wais::BEGIN@4 # spent 44µs making 1 call to Exporter::import
518µs1213µs
# spent 224µs (12+213) within Regexp::Common::URI::wais::BEGIN@5 which was called: # once (12µs+213µs) by Regexp::Common::import at line 6
use Regexp::Common::URI::RFC1738 qw /$host $port
# spent 213µs making 1 call to Exporter::import
6124µs1224µs $search $database $wtype $wpath/;
# spent 224µs making 1 call to Regexp::Common::URI::wais::BEGIN@5
7
8227µs225µs
# spent 20µs (14+5) within Regexp::Common::URI::wais::BEGIN@8 which was called: # once (14µs+5µs) by Regexp::Common::import at line 8
use strict;
# spent 20µs making 1 call to Regexp::Common::URI::wais::BEGIN@8 # spent 6µs making 1 call to strict::import
9230µs233µs
# spent 22µs (10+11) within Regexp::Common::URI::wais::BEGIN@9 which was called: # once (10µs+11µs) by Regexp::Common::import at line 9
use warnings;
# spent 22µs making 1 call to Regexp::Common::URI::wais::BEGIN@9 # spent 11µs making 1 call to warnings::import
10
11292µs284µs
# spent 48µs (12+36) within Regexp::Common::URI::wais::BEGIN@11 which was called: # once (12µs+36µs) by Regexp::Common::import at line 11
use vars qw /$VERSION/;
# spent 48µs making 1 call to Regexp::Common::URI::wais::BEGIN@11 # spent 36µs making 1 call to vars::import
1212µs$VERSION = '2010010201';
13
14
1511µsmy $scheme = 'wais';
1614µsmy $uri = "(?k:(?k:$scheme)://(?k:$host)(?::(?k:$port))?/(?k:(?k:$database)"
17 . "(?k:[?](?k:$search)|/(?k:$wtype)/(?k:$wpath))?))";
18
1914µs16µsregister_uri $scheme => $uri;
# spent 6µs making 1 call to Regexp::Common::URI::register_uri
20
2114µs1106µspattern name => [qw (URI WAIS)],
# spent 106µs making 1 call to Regexp::Common::pattern
22 create => $uri,
23 ;
24
2517µs1;
26
27__END__