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

Filename/home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Regexp/Common/URI/tv.pm
StatementsExecuted 18 statements in 212µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11128µs111µsRegexp::Common::URI::tv::::BEGIN@6Regexp::Common::URI::tv::BEGIN@6
11111µs15µsRegexp::Common::URI::tv::::BEGIN@10Regexp::Common::URI::tv::BEGIN@10
11111µs57µsRegexp::Common::URI::tv::::BEGIN@7Regexp::Common::URI::tv::BEGIN@7
11111µs19µsRegexp::Common::URI::tv::::BEGIN@11Regexp::Common::URI::tv::BEGIN@11
11111µs123µsRegexp::Common::URI::tv::::BEGIN@8Regexp::Common::URI::tv::BEGIN@8
11110µs44µsRegexp::Common::URI::tv::::BEGIN@13Regexp::Common::URI::tv::BEGIN@13
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# TV URLs.
2# Internet draft: draft-zigmond-tv-url-03.txt
3
4package Regexp::Common::URI::tv;
5
6230µs2111µs
# spent 111µs (28+83) within Regexp::Common::URI::tv::BEGIN@6 which was called: # once (28µs+83µs) by Regexp::Common::import at line 6
use Regexp::Common qw /pattern clean no_defaults/;
# spent 111µs making 1 call to Regexp::Common::URI::tv::BEGIN@6 # spent 83µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 83µs
7228µs2103µs
# spent 57µs (11+46) within Regexp::Common::URI::tv::BEGIN@7 which was called: # once (11µs+46µs) by Regexp::Common::import at line 7
use Regexp::Common::URI qw /register_uri/;
# spent 57µs making 1 call to Regexp::Common::URI::tv::BEGIN@7 # spent 46µs making 1 call to Exporter::import
8227µs2234µs
# spent 123µs (11+112) within Regexp::Common::URI::tv::BEGIN@8 which was called: # once (11µs+112µs) by Regexp::Common::import at line 8
use Regexp::Common::URI::RFC2396 qw /$hostname/;
# spent 123µs making 1 call to Regexp::Common::URI::tv::BEGIN@8 # spent 112µs making 1 call to Exporter::import
9
10225µs220µs
# spent 15µs (11+4) within Regexp::Common::URI::tv::BEGIN@10 which was called: # once (11µs+4µs) by Regexp::Common::import at line 10
use strict;
# spent 15µs making 1 call to Regexp::Common::URI::tv::BEGIN@10 # spent 4µs making 1 call to strict::import
11226µs228µs
# spent 19µs (11+8) within Regexp::Common::URI::tv::BEGIN@11 which was called: # once (11µs+8µs) by Regexp::Common::import at line 11
use warnings;
# spent 19µs making 1 call to Regexp::Common::URI::tv::BEGIN@11 # spent 8µs making 1 call to warnings::import
12
13256µs277µs
# spent 44µs (10+33) within Regexp::Common::URI::tv::BEGIN@13 which was called: # once (10µs+33µs) by Regexp::Common::import at line 13
use vars qw /$VERSION/;
# spent 44µs making 1 call to Regexp::Common::URI::tv::BEGIN@13 # spent 33µs making 1 call to vars::import
1412µs$VERSION = '2010010201';
15
16
1711µsmy $tv_scheme = 'tv';
1812µsmy $tv_url = "(?k:(?k:$tv_scheme):(?k:$hostname)?)";
19
2014µs15µsregister_uri $tv_scheme => $tv_url;
# spent 5µs making 1 call to Regexp::Common::URI::register_uri
21
2214µs195µspattern name => [qw (URI tv)],
# spent 95µs making 1 call to Regexp::Common::pattern
23 create => $tv_url,
24 ;
25
2616µs1;
27
28__END__