Profile of Time/HiRes.pm

Filename	/usr/lib/x86_64-linux-gnu/perl/5.28/Time/HiRes.pm
Statements	Executed 32 statements in 1.51ms

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
12	2	1	84µs	107µs	Time::HiRes::::statTime::HiRes::stat (xsub)
1	1	1	28µs	276µs	Time::HiRes::::importTime::HiRes::import
1	1	1	22µs	22µs	Time::HiRes::::BEGIN@3Time::HiRes::BEGIN@3
1	1	1	17µs	24µs	Time::HiRes::::AUTOLOADTime::HiRes::AUTOLOAD
1	1	1	7µs	10µs	Time::HiRes::::BEGIN@4Time::HiRes::BEGIN@4
1	1	1	6µs	21µs	Time::HiRes::::BEGIN@70Time::HiRes::BEGIN@70
1	1	1	4µs	4µs	Time::HiRes::::CORE:substTime::HiRes::CORE:subst (opcode)
1	1	1	4µs	4µs	Time::HiRes::::BEGIN@7Time::HiRes::BEGIN@7
1	1	1	3µs	3µs	Time::HiRes::::constantTime::HiRes::constant (xsub)
1	1	1	1µs	1µs	Time::HiRes::::__ANON__[:71]Time::HiRes::__ANON__[:71]
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	2	48µs	1	22µs	# spent 22µs within Time::HiRes::BEGIN@3 which was called: # once (22µs+0s) by File::Copy::BEGIN@1 at line 3 { use 5.006; } # spent 22µs making 1 call to Time::HiRes::BEGIN@3
4	3	30µs	2	12µs	# spent 10µs (7+3) within Time::HiRes::BEGIN@4 which was called: # once (7µs+3µs) by File::Copy::BEGIN@1 at line 4 use strict; # spent 10µs making 1 call to Time::HiRes::BEGIN@4 # spent 3µs making 1 call to strict::import
5
6	1	600ns			require Exporter;
7	2	229µs	1	4µs	# spent 4µs within Time::HiRes::BEGIN@7 which was called: # once (4µs+0s) by File::Copy::BEGIN@1 at line 7 use XSLoader (); # spent 4µs making 1 call to Time::HiRes::BEGIN@7
8
9	1	8µs			our @ISA = qw(Exporter);
10
11	1	200ns			our @EXPORT = qw( );
12					# More or less this same list is in Makefile.PL. Should unify.
13	1	4µs			our @EXPORT_OK = qw (usleep sleep ualarm alarm gettimeofday time tv_interval
14					getitimer setitimer nanosleep clock_gettime clock_getres
15					clock clock_nanosleep
16					CLOCKS_PER_SEC
17					CLOCK_BOOTTIME
18					CLOCK_HIGHRES
19					CLOCK_MONOTONIC
20					CLOCK_MONOTONIC_COARSE
21					CLOCK_MONOTONIC_FAST
22					CLOCK_MONOTONIC_PRECISE
23					CLOCK_MONOTONIC_RAW
24					CLOCK_PROCESS_CPUTIME_ID
25					CLOCK_PROF
26					CLOCK_REALTIME
27					CLOCK_REALTIME_COARSE
28					CLOCK_REALTIME_FAST
29					CLOCK_REALTIME_PRECISE
30					CLOCK_REALTIME_RAW
31					CLOCK_SECOND
32					CLOCK_SOFTTIME
33					CLOCK_THREAD_CPUTIME_ID
34					CLOCK_TIMEOFDAY
35					CLOCK_UPTIME
36					CLOCK_UPTIME_COARSE
37					CLOCK_UPTIME_FAST
38					CLOCK_UPTIME_PRECISE
39					CLOCK_UPTIME_RAW
40					CLOCK_VIRTUAL
41					ITIMER_PROF
42					ITIMER_REAL
43					ITIMER_REALPROF
44					ITIMER_VIRTUAL
45					TIMER_ABSTIME
46					d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer
47					d_nanosleep d_clock_gettime d_clock_getres
48					d_clock d_clock_nanosleep d_hires_stat
49					d_futimens d_utimensat d_hires_utime
50					stat lstat utime
51					);
52
53	1	200ns			our $VERSION = '1.9759';
54	1	100ns			our $XS_VERSION = $VERSION;
55	1	12µs			$VERSION = eval $VERSION; # spent 2µs executing statements in string eval
56
57					our $AUTOLOAD;
58					# spent 24µs (17+7) within Time::HiRes::AUTOLOAD which was called: # once (17µs+7µs) by Time::HiRes::import at line 79 sub AUTOLOAD {
59	1	100ns			my $constname;
60	1	9µs	1	4µs	($constname = $AUTOLOAD) =~ s/.*:://; # spent 4µs making 1 call to Time::HiRes::CORE:subst
61					# print "AUTOLOAD: constname = $constname ($AUTOLOAD)\n";
62	1	200ns			die "&Time::HiRes::constant not defined" if $constname eq 'constant';
63	1	7µs	1	3µs	my ($error, $val) = constant($constname); # spent 3µs making 1 call to Time::HiRes::constant
64					# print "AUTOLOAD: error = $error, val = $val\n";
65	1	100ns			if ($error) {
66					my (undef,$file,$line) = caller;
67					die "$error at $file line $line.\n";
68					}
69					{
70	3	293µs	2	35µs	# spent 21µs (6+14) within Time::HiRes::BEGIN@70 which was called: # once (6µs+14µs) by File::Copy::BEGIN@1 at line 70 no strict 'refs'; # spent 21µs making 1 call to Time::HiRes::BEGIN@70 # spent 14µs making 1 call to strict::unimport
71	2	7µs			# spent 1µs within Time::HiRes::__ANON__[/usr/lib/x86_64-linux-gnu/perl/5.28/Time/HiRes.pm:71] which was called: # once (1µs+0s) by Time::HiRes::import at line 73 *$AUTOLOAD = sub { $val };
72					}
73	1	14µs	1	1µs	goto &$AUTOLOAD; # spent 1µs making 1 call to Time::HiRes::__ANON__[Time/HiRes.pm:71]
74					}
75
76					# spent 276µs (28+248) within Time::HiRes::import which was called: # once (28µs+248µs) by File::Copy::BEGIN@1 at line 1 of (eval 11)[File/Copy.pm:20] sub import {
77	1	600ns			my $this = shift;
78	1	900ns			for my $i (@_) {
79	2	5µs	1	24µs	if (($i eq 'clock_getres' && !&d_clock_getres) \|\| # spent 24µs making 1 call to Time::HiRes::AUTOLOAD
80					($i eq 'clock_gettime' && !&d_clock_gettime) \|\|
81					($i eq 'clock_nanosleep' && !&d_clock_nanosleep) \|\|
82					($i eq 'clock' && !&d_clock) \|\|
83					($i eq 'nanosleep' && !&d_nanosleep) \|\|
84					($i eq 'usleep' && !&d_usleep) \|\|
85					($i eq 'utime' && !&d_hires_utime) \|\|
86					($i eq 'ualarm' && !&d_ualarm)) {
87					require Carp;
88					Carp::croak("Time::HiRes::$i(): unimplemented in this platform");
89					}
90					}
91	1	8µs	1	27µs	Time::HiRes->export_to_level(1, $this, @_); # spent 27µs making 1 call to Exporter::export_to_level
92					}
93
94	1	818µs	1	809µs	XSLoader::load( 'Time::HiRes', $XS_VERSION ); # spent 809µs making 1 call to XSLoader::load
95
96					# Preloaded methods go here.
97
98					sub tv_interval {
99					# probably could have been done in C
100					my ($a, $b) = @_;
101					$b = [gettimeofday()] unless defined($b);
102					(${$b}[0] - ${$a}[0]) + ((${$b}[1] - ${$a}[1]) / 1_000_000);
103					}
104
105					# Autoload methods go after =cut, and are processed by the autosplit program.
106
107	1	12µs			1;
108					__END__

					# spent 4µs within Time::HiRes::CORE:subst which was called: # once (4µs+0s) by Time::HiRes::AUTOLOAD at line 60 sub Time::HiRes::CORE:subst; # opcode
					# spent 3µs within Time::HiRes::constant which was called: # once (3µs+0s) by Time::HiRes::AUTOLOAD at line 63 sub Time::HiRes::constant; # xsub
					# spent 107µs (84+23) within Time::HiRes::stat which was called 12 times, avg 9µs/call: # 6 times (68µs+15µs) by File::Copy::copy at line 104 of File/Copy.pm, avg 14µs/call # 6 times (16µs+7µs) by File::Copy::copy at line 106 of File/Copy.pm, avg 4µs/call sub Time::HiRes::stat; # xsub