ACIL FM

Pilih semua

Nama	Ukuran	Aksi
Archive.pm	43.88 MB	View DL Edit
BufferedFileHandle.pm	2.68 MB	View DL Edit
DirectoryMember.pm	1.94 MB	View DL Edit
FAQ.pod	12.01 MB	View DL Edit
FileMember.pm	1.31 MB	View DL Edit
Member.pm	48.11 MB	View DL Edit
MemberRead.pm	7.63 MB	View DL Edit
MockFileHandle.pm	1.3 MB	View DL Edit
NewFileMember.pm	2.13 MB	View DL Edit
StringMember.pm	1.72 MB	View DL Edit
Tree.pm	819 B	View DL Edit
ZipFileMember.pm	15.83 MB	View DL Edit

Edit file: /usr/share/perl5/vendor_perl/Archive/Zip/MockFileHandle.pm

package Archive::Zip::MockFileHandle;

# Output file handle that calls a custom write routine
# Ned Konz, March 2000
# This is provided to help with writing zip files
# when you have to process them a chunk at a time.

use strict;

use vars qw{$VERSION};

BEGIN {
    $VERSION = '1.68';
    $VERSION = eval $VERSION;
}

sub new {
    my $class = shift || __PACKAGE__;
    $class = ref($class) || $class;
    my $self = bless(
        {
            'position' => 0,
            'size'     => 0
        },
        $class
    );
    return $self;
}

sub eof {
    my $self = shift;
    return $self->{'position'} >= $self->{'size'};
}

# Copy given buffer to me
sub print {
    my $self         = shift;
    my $bytes        = join('', @_);
    my $bytesWritten = $self->writeHook($bytes);
    if ($self->{'position'} + $bytesWritten > $self->{'size'}) {
        $self->{'size'} = $self->{'position'} + $bytesWritten;
    }
    $self->{'position'} += $bytesWritten;
    return $bytesWritten;
}

# Called on each write.
# Override in subclasses.
# Return number of bytes written (0 on error).
sub writeHook {
    my $self  = shift;
    my $bytes = shift;
    return length($bytes);
}

sub binmode { 1 }

sub close { 1 }

sub clearerr { 1 }

# I'm write-only!
sub read { 0 }

sub tell { return shift->{'position'} }

sub opened { 1 }

1;

Batal

Isi Zip:

Create