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 | BEGIN | IO::Seekable::
0 | 0 | 0 | 0s | 0s | seek | IO::Seekable::
0 | 0 | 0 | 0s | 0s | sysseek | IO::Seekable::
0 | 0 | 0 | 0s | 0s | tell | IO::Seekable::
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; |