Filename | /opt/perl-5.18.1/lib/5.18.1/darwin-thread-multi-2level/Time/HiRes.pm |
Statements | Executed 22 statements in 725µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 62µs | 62µs | bootstrap (xsub) | Time::HiRes::
1 | 1 | 1 | 20µs | 20µs | BEGIN@3 | Time::HiRes::
1 | 1 | 1 | 15µs | 2.12ms | import | Time::HiRes::
1 | 1 | 1 | 15µs | 28µs | BEGIN@43 | Time::HiRes::
1 | 1 | 1 | 9µs | 25µs | BEGIN@4 | Time::HiRes::
0 | 0 | 0 | 0s | 0s | AUTOLOAD | Time::HiRes::
0 | 0 | 0 | 0s | 0s | __ANON__[:44] | 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 | 3 | 66µs | 1 | 20µs | # spent 20µs within Time::HiRes::BEGIN@3 which was called:
# once (20µs+0s) by Benchmark::BEGIN@453 at line 3 # spent 20µs making 1 call to Time::HiRes::BEGIN@3 |
4 | 2 | 258µs | 2 | 41µs | # spent 25µs (9+16) within Time::HiRes::BEGIN@4 which was called:
# once (9µs+16µs) by Benchmark::BEGIN@453 at line 4 # spent 25µs making 1 call to Time::HiRes::BEGIN@4
# spent 16µs making 1 call to strict::import |
5 | |||||
6 | 1 | 600ns | require Exporter; | ||
7 | 1 | 400ns | require DynaLoader; | ||
8 | |||||
9 | 1 | 9µs | our @ISA = qw(Exporter DynaLoader); | ||
10 | |||||
11 | 1 | 300ns | our @EXPORT = qw( ); | ||
12 | 1 | 7µs | our @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 | 300ns | our $VERSION = '1.9725'; | ||
27 | 1 | 200ns | our $XS_VERSION = $VERSION; | ||
28 | 1 | 14µs | $VERSION = eval $VERSION; # spent 3µs executing statements in string eval | ||
29 | |||||
30 | 1 | 0s | our $AUTOLOAD; | ||
31 | sub AUTOLOAD { | ||||
32 | my $constname; | ||||
33 | ($constname = $AUTOLOAD) =~ s/.*:://; | ||||
34 | # print "AUTOLOAD: constname = $constname ($AUTOLOAD)\n"; | ||||
35 | die "&Time::HiRes::constant not defined" if $constname eq 'constant'; | ||||
36 | my ($error, $val) = constant($constname); | ||||
37 | # print "AUTOLOAD: error = $error, val = $val\n"; | ||||
38 | if ($error) { | ||||
39 | my (undef,$file,$line) = caller; | ||||
40 | die "$error at $file line $line.\n"; | ||||
41 | } | ||||
42 | { | ||||
43 | 2 | 334µs | 2 | 42µs | # spent 28µs (15+14) within Time::HiRes::BEGIN@43 which was called:
# once (15µs+14µs) by Benchmark::BEGIN@453 at line 43 # spent 28µs making 1 call to Time::HiRes::BEGIN@43
# spent 14µs making 1 call to strict::unimport |
44 | *$AUTOLOAD = sub { $val }; | ||||
45 | } | ||||
46 | goto &$AUTOLOAD; | ||||
47 | } | ||||
48 | |||||
49 | # spent 2.12ms (15µs+2.10) within Time::HiRes::import which was called:
# once (15µs+2.10ms) by Benchmark::BEGIN@453 at line 455 of Benchmark.pm | ||||
50 | 1 | 500ns | my $this = shift; | ||
51 | 1 | 1µs | for my $i (@_) { | ||
52 | 1 | 2µs | if (($i eq 'clock_getres' && !&d_clock_getres) || | ||
53 | ($i eq 'clock_gettime' && !&d_clock_gettime) || | ||||
54 | ($i eq 'clock_nanosleep' && !&d_clock_nanosleep) || | ||||
55 | ($i eq 'clock' && !&d_clock) || | ||||
56 | ($i eq 'nanosleep' && !&d_nanosleep) || | ||||
57 | ($i eq 'usleep' && !&d_usleep) || | ||||
58 | ($i eq 'ualarm' && !&d_ualarm)) { | ||||
59 | require Carp; | ||||
60 | Carp::croak("Time::HiRes::$i(): unimplemented in this platform"); | ||||
61 | } | ||||
62 | } | ||||
63 | 1 | 8µs | 1 | 1.94ms | Time::HiRes->export_to_level(1, $this, @_); # spent 1.94ms making 1 call to Exporter::export_to_level |
64 | } | ||||
65 | |||||
66 | 1 | 9µs | 1 | 331µs | bootstrap Time::HiRes; # spent 331µs making 1 call to DynaLoader::bootstrap |
67 | |||||
68 | # Preloaded methods go here. | ||||
69 | |||||
70 | sub tv_interval { | ||||
71 | # probably could have been done in C | ||||
72 | my ($a, $b) = @_; | ||||
73 | $b = [gettimeofday()] unless defined($b); | ||||
74 | (${$b}[0] - ${$a}[0]) + ((${$b}[1] - ${$a}[1]) / 1_000_000); | ||||
75 | } | ||||
76 | |||||
77 | # Autoload methods go after =cut, and are processed by the autosplit program. | ||||
78 | |||||
79 | 1 | 15µs | 1; | ||
80 | __END__ | ||||
# spent 62µs within Time::HiRes::bootstrap which was called:
# once (62µs+0s) by DynaLoader::bootstrap at line 217 of DynaLoader.pm |