| File | /usr/lib/perl/5.10/IO/Seekable.pm |
| Statements Executed | 22 |
| Total Time | 0.0004595 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 0 | 0 | 0 | 0s | 0s | IO::Seekable::BEGIN |
| 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 | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | # | |||
| 2 | ||||
| 3 | package IO::Seekable; | |||
| 4 | ||||
| 5 | 3 | 39µs | 13µs | use 5.006_001; |
| 6 | 3 | 27µs | 9µs | use Carp; # spent 51µs making 1 call to Exporter::import |
| 7 | 3 | 54µs | 18µs | use strict; # spent 12µs making 1 call to strict::import |
| 8 | 1 | 500ns | 500ns | our($VERSION, @EXPORT, @ISA); |
| 9 | 3 | 118µs | 39µs | use IO::Handle (); |
| 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 | 3 | 180µs | 60µs | use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); # spent 56µs making 1 call to Exporter::import |
| 13 | 1 | 600ns | 600ns | require Exporter; |
| 14 | ||||
| 15 | 1 | 6µs | 6µs | @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END); |
| 16 | 1 | 8µs | 8µs | @ISA = qw(Exporter); |
| 17 | ||||
| 18 | 1 | 600ns | 600ns | $VERSION = "1.10"; |
| 19 | 1 | 17µs | 17µs | $VERSION = eval $VERSION; |
| 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 | 9µs | 9µs | 1; |