# package IO::Seekable; use 5.006_001; use Carp; use strict; our($VERSION, @EXPORT, @ISA); use IO::Handle (); # XXX we can't get these from IO::Handle or we'll get prototype # mismatch warnings on C<use POSIX; use IO::File;> :-( use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END); require Exporter; @EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END); @ISA = qw(Exporter); $VERSION = "1.10"; $VERSION = eval $VERSION; sub seek { @_ == 3 or croak 'usage: $io->seek(POS, WHENCE)'; seek($_[0], $_[1], $_[2]); } sub sysseek { @_ == 3 or croak 'usage: $io->sysseek(POS, WHENCE)'; sysseek($_[0], $_[1], $_[2]); } sub tell { @_ == 1 or croak 'usage: $io->tell()'; tell($_[0]); } 1;
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
Socket | Folder | 0755 |
|
|
Dir.pm | File | 5.24 KB | 0644 |
|
File.pm | File | 1.63 KB | 0644 |
|
Handle.pm | File | 8.04 KB | 0644 |
|
Pipe.pm | File | 3.34 KB | 0644 |
|
Poll.pm | File | 4.43 KB | 0644 |
|
Seekable.pm | File | 686 B | 0644 |
|
Select.pm | File | 4.26 KB | 0644 |
|
Socket.pm | File | 9.23 KB | 0644 |
|