Filename | /usr/lib/perl/5.14/Time/HiRes.pm |
Statements | Executed 24 statements in 1.37ms |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 419µs | 796µs | BEGIN@4 | Time::HiRes::
1 | 1 | 1 | 40µs | 40µs | bootstrap (xsub) | Time::HiRes::
2 | 2 | 2 | 26µs | 1.71ms | import | Time::HiRes::
1 | 1 | 1 | 13µs | 16µs | BEGIN@3 | Time::HiRes::
2 | 2 | 1 | 8µs | 8µs | time (xsub) | Time::HiRes::
1 | 1 | 1 | 8µs | 33µs | BEGIN@42 | Time::HiRes::
0 | 0 | 0 | 0s | 0s | AUTOLOAD | Time::HiRes::
0 | 0 | 0 | 0s | 0s | __ANON__[:43] | Time::HiRes::
0 | 0 | 0 | 0s | 0s | tv_interval | Time::HiRes::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Time::HiRes; | ||||
2 | |||||
3 | 2 | 27µs | 2 | 19µs | # spent 16µs (13+3) within Time::HiRes::BEGIN@3 which was called:
# once (13µs+3µs) by main::BEGIN@6 at line 3 # spent 16µs making 1 call to Time::HiRes::BEGIN@3
# spent 3µs making 1 call to strict::import |
4 | 2 | 236µs | 2 | 872µs | # spent 796µs (419+377) within Time::HiRes::BEGIN@4 which was called:
# once (419µs+377µs) by main::BEGIN@6 at line 4 # spent 796µs making 1 call to Time::HiRes::BEGIN@4
# spent 77µs making 1 call to vars::import |
5 | |||||
6 | 1 | 597µs | require Exporter; | ||
7 | 1 | 113µs | require DynaLoader; | ||
8 | |||||
9 | 1 | 7µs | @ISA = qw(Exporter DynaLoader); | ||
10 | |||||
11 | 1 | 200ns | @EXPORT = qw( ); | ||
12 | 1 | 5µ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 | 200ns | $VERSION = '1.9721_01'; | ||
27 | 1 | 300ns | $XS_VERSION = $VERSION; | ||
28 | 1 | 29µs | $VERSION = eval $VERSION; # spent 2µ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 | 2 | 322µs | 2 | 59µs | # spent 33µs (8+25) within Time::HiRes::BEGIN@42 which was called:
# once (8µs+25µs) by main::BEGIN@6 at line 42 # spent 33µs making 1 call to Time::HiRes::BEGIN@42
# spent 25µs making 1 call to strict::unimport |
43 | *$AUTOLOAD = sub { $val }; | ||||
44 | } | ||||
45 | goto &$AUTOLOAD; | ||||
46 | } | ||||
47 | |||||
48 | # spent 1.71ms (26µs+1.69) within Time::HiRes::import which was called 2 times, avg 857µs/call:
# once (12µs+1.62ms) by main::BEGIN@6 at line 6 of mentat.storage.mongo.pl
# once (15µs+68µs) by Mentat::Storage::Mongo::BEGIN@153 at line 153 of Mentat/Storage/Mongo.pm | ||||
49 | 2 | 1µs | my $this = shift; | ||
50 | 2 | 3µs | for my $i (@_) { | ||
51 | 2 | 7µs | 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 | 2 | 10µs | 2 | 1.49ms | Time::HiRes->export_to_level(1, $this, @_); # spent 1.49ms making 2 calls to Exporter::export_to_level, avg 743µs/call |
63 | } | ||||
64 | |||||
65 | 1 | 7µs | 1 | 225µs | bootstrap Time::HiRes; # spent 225µ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 | 9µs | 1; | ||
79 | __END__ | ||||
# spent 40µs within Time::HiRes::bootstrap which was called:
# once (40µs+0s) by DynaLoader::bootstrap at line 207 of DynaLoader.pm | |||||
# spent 8µs within Time::HiRes::time which was called 2 times, avg 4µs/call:
# once (6µs+0s) by main::RUNTIME at line 27 of mentat.storage.mongo.pl
# once (3µs+0s) by main::RUNTIME at line 45 of mentat.storage.mongo.pl |