Filename	/usr/lib/perl/5.10/Time/HiRes.pm
Statements	Executed 19 statements in 764µs

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	81µs	81µs	Time::HiRes::::bootstrapTime::HiRes::bootstrap (xsub)
1	1	1	21µs	28µs	Time::HiRes::::BEGIN@3Time::HiRes::BEGIN@3
1	1	1	17µs	52µs	Time::HiRes::::BEGIN@42Time::HiRes::BEGIN@42
1	1	1	14µs	122µs	Time::HiRes::::BEGIN@4Time::HiRes::BEGIN@4
0	0	0	0s	0s	Time::HiRes::::AUTOLOADTime::HiRes::AUTOLOAD
0	0	0	0s	0s	Time::HiRes::::__ANON__[:43]Time::HiRes::__ANON__[:43]
0	0	0	0s	0s	Time::HiRes::::importTime::HiRes::import
0	0	0	0s	0s	Time::HiRes::::tv_intervalTime::HiRes::tv_interval

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Time::HiRes;
2
3	3	53µs	2	35µs	# spent 28µs (21+7) within Time::HiRes::BEGIN@3 which was called: # once (21µs+7µs) by Cache::Memcached::BEGIN@17 at line 3 use strict; # spent 28µs making 1 call to Time::HiRes::BEGIN@3 # spent 7µs making 1 call to strict::import
4	3	248µs	2	230µs	# spent 122µs (14+108) within Time::HiRes::BEGIN@4 which was called: # once (14µs+108µs) by Cache::Memcached::BEGIN@17 at line 4 use vars qw($VERSION $XS_VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD); # spent 122µs making 1 call to Time::HiRes::BEGIN@4 # spent 108µs making 1 call to vars::import
5
6	1	900ns			require Exporter;
7	1	600ns			require DynaLoader;
8
9	1	18µs			@ISA = qw(Exporter DynaLoader);
10
11	1	500ns			@EXPORT = qw( );
12	1	6µs			@EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
13					getitimer setitimer nanosleep clock_gettime clock_getres
14					clock clock_nanosleep
15					CLOCK_HIGHRES CLOCK_MONOTONIC CLOCK_PROCESS_CPUTIME_ID
16					CLOCK_REALTIME CLOCK_SOFTTIME CLOCK_THREAD_CPUTIME_ID
17					CLOCK_TIMEOFDAY CLOCKS_PER_SEC
18					ITIMER_REAL ITIMER_VIRTUAL ITIMER_PROF ITIMER_REALPROF
19					TIMER_ABSTIME
20					d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer
21					d_nanosleep d_clock_gettime d_clock_getres
22					d_clock d_clock_nanosleep
23					stat
24					);
25
26	1	500ns			$VERSION = '1.9719';
27	1	400ns			$XS_VERSION = $VERSION;
28	1	20µs			$VERSION = eval $VERSION; # spent 4µs executing statements in string eval
29
30					sub AUTOLOAD {
31					my $constname;
32					($constname = $AUTOLOAD) =~ s/.*:://;
33					# print "AUTOLOAD: constname = $constname ($AUTOLOAD)\n";
34					die "&Time::HiRes::constant not defined" if $constname eq 'constant';
35					my ($error, $val) = constant($constname);
36					# print "AUTOLOAD: error = $error, val = $val\n";
37					if ($error) {
38					my (undef,$file,$line) = caller;
39					die "$error at $file line $line.\n";
40					}
41					{
42	3	395µs	2	87µs	# spent 52µs (17+35) within Time::HiRes::BEGIN@42 which was called: # once (17µs+35µs) by Cache::Memcached::BEGIN@17 at line 42 no strict 'refs'; # spent 52µs making 1 call to Time::HiRes::BEGIN@42 # spent 35µs making 1 call to strict::unimport
43					*$AUTOLOAD = sub { $val };
44					}
45					goto &$AUTOLOAD;
46					}
47
48					sub import {
49					my $this = shift;
50					for my $i (@_) {
51					if (($i eq 'clock_getres' && !&d_clock_getres) ||
52					($i eq 'clock_gettime' && !&d_clock_gettime) ||
53					($i eq 'clock_nanosleep' && !&d_clock_nanosleep) ||
54					($i eq 'clock' && !&d_clock) ||
55					($i eq 'nanosleep' && !&d_nanosleep) ||
56					($i eq 'usleep' && !&d_usleep) ||
57					($i eq 'ualarm' && !&d_ualarm)) {
58					require Carp;
59					Carp::croak("Time::HiRes::$i(): unimplemented in this platform");
60					}
61					}
62					Time::HiRes->export_to_level(1, $this, @_);
63					}
64
65	1	8µs	1	362µs	bootstrap Time::HiRes; # spent 362µs making 1 call to DynaLoader::bootstrap
66
67					# Preloaded methods go here.
68
69					sub tv_interval {
70					# probably could have been done in C
71					my ($a, $b) = @_;
72					$b = [gettimeofday()] unless defined($b);
73					(${$b}[0] - ${$a}[0]) + ((${$b}[1] - ${$a}[1]) / 1_000_000);
74					}
75
76					# Autoload methods go after =cut, and are processed by the autosplit program.
77
78	1	12µs			1;
79					__END__
					# spent 81µs within Time::HiRes::bootstrap which was called: # once (81µs+0s) by DynaLoader::bootstrap at line 215 of DynaLoader.pm sub Time::HiRes::bootstrap; # xsub