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/FileMember.pm

package Archive::Zip::FileMember;

use strict;
use vars qw( $VERSION @ISA );

BEGIN {
    $VERSION = '1.68';
    @ISA     = qw ( Archive::Zip::Member );
}

use Archive::Zip qw(
  :UTILITY_METHODS
);

sub externalFileName {
    shift->{'externalFileName'};
}

# Return true if I depend on the named file
sub _usesFileNamed {
    my $self     = shift;
    my $fileName = shift;
    my $xfn      = $self->externalFileName();
    return undef if ref($xfn);
    return $xfn eq $fileName;
}

sub fh {
    my $self = shift;
    $self->_openFile()
      if !defined($self->{'fh'}) || !$self->{'fh'}->opened();
    return $self->{'fh'};
}

# opens my file handle from my file name
sub _openFile {
    my $self = shift;
    my ($status, $fh) = _newFileHandle($self->externalFileName(), 'r');
    if (!$status) {
        _ioError("Can't open", $self->externalFileName());
        return undef;
    }
    $self->{'fh'} = $fh;
    _binmode($fh);
    return $fh;
}

# Make sure I close my file handle
sub endRead {
    my $self = shift;
    undef $self->{'fh'};    # _closeFile();
    return $self->SUPER::endRead(@_);
}

sub _become {
    my $self     = shift;
    my $newClass = shift;
    return $self if ref($self) eq $newClass;
    delete($self->{'externalFileName'});
    delete($self->{'fh'});
    return $self->SUPER::_become($newClass);
}

1;

Batal

Isi Zip:

Create