| Filename | /usr/lib/x86_64-linux-gnu/perl/5.28/Time/HiRes.pm |
| Statements | Executed 32 statements in 912µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 12 | 2 | 1 | 222µs | 247µs | Time::HiRes::stat (xsub) |
| 1 | 1 | 1 | 18µs | 254µs | Time::HiRes::import |
| 1 | 1 | 1 | 16µs | 22µs | Time::HiRes::AUTOLOAD |
| 1 | 1 | 1 | 12µs | 12µs | Time::HiRes::BEGIN@3 |
| 1 | 1 | 1 | 6µs | 16µs | Time::HiRes::BEGIN@70 |
| 1 | 1 | 1 | 6µs | 8µs | Time::HiRes::BEGIN@4 |
| 1 | 1 | 1 | 3µs | 3µs | Time::HiRes::CORE:subst (opcode) |
| 1 | 1 | 1 | 3µs | 3µs | Time::HiRes::constant (xsub) |
| 1 | 1 | 1 | 2µs | 2µs | Time::HiRes::BEGIN@7 |
| 1 | 1 | 1 | 700ns | 700ns | Time::HiRes::__ANON__[:71] |
| 0 | 0 | 0 | 0s | 0s | Time::HiRes::tv_interval |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Time::HiRes; | ||||
| 2 | |||||
| 3 | 2 | 42µs | 1 | 12µs | # spent 12µs within Time::HiRes::BEGIN@3 which was called:
# once (12µs+0s) by File::Copy::BEGIN@1 at line 3 # spent 12µs making 1 call to Time::HiRes::BEGIN@3 |
| 4 | 3 | 24µs | 2 | 10µs | # spent 8µs (6+2) within Time::HiRes::BEGIN@4 which was called:
# once (6µs+2µs) by File::Copy::BEGIN@1 at line 4 # spent 8µs making 1 call to Time::HiRes::BEGIN@4
# spent 2µs making 1 call to strict::import |
| 5 | |||||
| 6 | 1 | 700ns | require Exporter; | ||
| 7 | 2 | 187µs | 1 | 2µs | # spent 2µs within Time::HiRes::BEGIN@7 which was called:
# once (2µs+0s) by File::Copy::BEGIN@1 at line 7 # spent 2µs making 1 call to Time::HiRes::BEGIN@7 |
| 8 | |||||
| 9 | 1 | 7µs | our @ISA = qw(Exporter); | ||
| 10 | |||||
| 11 | 1 | 300ns | 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 | 11µs | $VERSION = eval $VERSION; # spent 2µs executing statements in string eval | ||
| 56 | |||||
| 57 | our $AUTOLOAD; | ||||
| 58 | # spent 22µs (16+6) within Time::HiRes::AUTOLOAD which was called:
# once (16µs+6µs) by Time::HiRes::import at line 79 | ||||
| 59 | 1 | 100ns | my $constname; | ||
| 60 | 1 | 8µs | 1 | 3µs | ($constname = $AUTOLOAD) =~ s/.*:://; # spent 3µ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 | 274µs | 2 | 26µs | # spent 16µs (6+10) within Time::HiRes::BEGIN@70 which was called:
# once (6µs+10µs) by File::Copy::BEGIN@1 at line 70 # spent 16µs making 1 call to Time::HiRes::BEGIN@70
# spent 10µs making 1 call to strict::unimport |
| 71 | 2 | 6µs | # spent 700ns within Time::HiRes::__ANON__[/usr/lib/x86_64-linux-gnu/perl/5.28/Time/HiRes.pm:71] which was called:
# once (700ns+0s) by Time::HiRes::import at line 73 | ||
| 72 | } | ||||
| 73 | 1 | 5µs | 1 | 700ns | goto &$AUTOLOAD; # spent 700ns making 1 call to Time::HiRes::__ANON__[Time/HiRes.pm:71] |
| 74 | } | ||||
| 75 | |||||
| 76 | # spent 254µs (18+236) within Time::HiRes::import which was called:
# once (18µs+236µs) by File::Copy::BEGIN@1 at line 1 of (eval 11)[File/Copy.pm:20] | ||||
| 77 | 1 | 400ns | my $this = shift; | ||
| 78 | 1 | 500ns | for my $i (@_) { | ||
| 79 | 2 | 4µs | 1 | 22µs | if (($i eq 'clock_getres' && !&d_clock_getres) || # spent 22µ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 | 7µs | 1 | 19µs | Time::HiRes->export_to_level(1, $this, @_); # spent 19µs making 1 call to Exporter::export_to_level |
| 92 | } | ||||
| 93 | |||||
| 94 | 1 | 316µs | 1 | 308µs | XSLoader::load( 'Time::HiRes', $XS_VERSION ); # spent 308µ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 | 10µs | 1; | ||
| 108 | __END__ | ||||
# spent 3µs within Time::HiRes::CORE:subst which was called:
# once (3µs+0s) by Time::HiRes::AUTOLOAD at line 60 | |||||
# spent 3µs within Time::HiRes::constant which was called:
# once (3µs+0s) by Time::HiRes::AUTOLOAD at line 63 | |||||
# spent 247µs (222+25) within Time::HiRes::stat which was called 12 times, avg 21µs/call:
# 6 times (203µs+18µs) by File::Copy::copy at line 104 of File/Copy.pm, avg 37µs/call
# 6 times (18µs+7µs) by File::Copy::copy at line 106 of File/Copy.pm, avg 4µs/call |