1 package Archive
::Zip
::FileMember
;
4 use vars
qw( $VERSION @ISA );
8 @ISA = qw ( Archive::Zip::Member );
15 sub externalFileName
{
16 shift->{'externalFileName'};
19 # Return true if I depend on the named file
23 my $xfn = $self->externalFileName();
24 return undef if ref($xfn);
25 return $xfn eq $fileName;
31 if !defined( $self->{'fh'} ) || !$self->{'fh'}->opened();
35 # opens my file handle from my file name
38 my ( $status, $fh ) = _newFileHandle
( $self->externalFileName(), 'r' );
40 _ioError
( "Can't open", $self->externalFileName() );
48 # Make sure I close my file handle
51 undef $self->{'fh'}; # _closeFile();
52 return $self->SUPER::endRead
(@_);
58 return $self if ref($self) eq $newClass;
59 delete( $self->{'externalFileName'} );
60 delete( $self->{'fh'} );
61 return $self->SUPER::_become
($newClass);