| Filename | /usr/lib/perl/5.18/IO/Seekable.pm |
| Statements | Executed 17 statements in 304µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 1.77ms | 2.39ms | IO::Seekable::BEGIN@9 |
| 1 | 1 | 1 | 11µs | 11µs | IO::Seekable::BEGIN@5 |
| 1 | 1 | 1 | 7µs | 34µs | IO::Seekable::BEGIN@12 |
| 1 | 1 | 1 | 5µs | 35µs | IO::Seekable::BEGIN@6 |
| 1 | 1 | 1 | 5µs | 12µs | IO::Seekable::BEGIN@7 |
| 0 | 0 | 0 | 0s | 0s | IO::Seekable::seek |
| 0 | 0 | 0 | 0s | 0s | IO::Seekable::sysseek |
| 0 | 0 | 0 | 0s | 0s | IO::Seekable::tell |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # | ||||
| 2 | |||||
| 3 | package IO::Seekable; | ||||
| 4 | |||||
| 5 | 2 | 36µs | 1 | 11µs | # spent 11µs within IO::Seekable::BEGIN@5 which was called:
# once (11µs+0s) by IO::File::BEGIN@11 at line 5 # spent 11µs making 1 call to IO::Seekable::BEGIN@5 |
| 6 | 2 | 18µs | 2 | 65µs | # spent 35µs (5+30) within IO::Seekable::BEGIN@6 which was called:
# once (5µs+30µs) by IO::File::BEGIN@11 at line 6 # spent 35µs making 1 call to IO::Seekable::BEGIN@6
# spent 30µs making 1 call to Exporter::import |
| 7 | 2 | 31µs | 2 | 20µs | # spent 12µs (5+8) within IO::Seekable::BEGIN@7 which was called:
# once (5µs+8µs) by IO::File::BEGIN@11 at line 7 # spent 12µs making 1 call to IO::Seekable::BEGIN@7
# spent 8µs making 1 call to strict::import |
| 8 | 1 | 300ns | our($VERSION, @EXPORT, @ISA); | ||
| 9 | 2 | 82µs | 1 | 2.39ms | # spent 2.39ms (1.77+625µs) within IO::Seekable::BEGIN@9 which was called:
# once (1.77ms+625µs) by IO::File::BEGIN@11 at line 9 # spent 2.39ms making 1 call to IO::Seekable::BEGIN@9 |
| 10 | # XXX we can't get these from IO::Handle or we'll get prototype | ||||
| 11 | # mismatch warnings on C<use POSIX; use IO::File;> :-( | ||||
| 12 | 2 | 112µs | 2 | 62µs | # spent 34µs (7+27) within IO::Seekable::BEGIN@12 which was called:
# once (7µs+27µs) by IO::File::BEGIN@11 at line 12 # spent 34µs making 1 call to IO::Seekable::BEGIN@12
# spent 27µs making 1 call to Exporter::import |
| 13 | 1 | 400ns | require Exporter; | ||
| 14 | |||||
| 15 | 1 | 900ns | @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END); | ||
| 16 | 1 | 9µs | @ISA = qw(Exporter); | ||
| 17 | |||||
| 18 | 1 | 200ns | $VERSION = "1.10"; | ||
| 19 | 1 | 10µs | $VERSION = eval $VERSION; # spent 2µs executing statements in string eval | ||
| 20 | |||||
| 21 | sub seek { | ||||
| 22 | @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)'; | ||||
| 23 | seek($_[0], $_[1], $_[2]); | ||||
| 24 | } | ||||
| 25 | |||||
| 26 | sub sysseek { | ||||
| 27 | @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)'; | ||||
| 28 | sysseek($_[0], $_[1], $_[2]); | ||||
| 29 | } | ||||
| 30 | |||||
| 31 | sub tell { | ||||
| 32 | @_ == 1 or croak 'usage: $io->tell()'; | ||||
| 33 | tell($_[0]); | ||||
| 34 | } | ||||
| 35 | |||||
| 36 | 1 | 3µs | 1; |