Exporter
  Archive::Zip                        Common base class, has defs.
    Archive::Zip::Archive             A Zip archive.
    Archive::Zip::Member              Abstract superclass for all members.
      Archive::Zip::StringMember      Member made from a string
      Archive::Zip::FileMember        Member made from an external
file
      Archive::Zip::ZipFileMember     Member that lives in a zip file
      Archive::Zip::NewFileMember     Member whose data is in a file
      Archive::Zip::DirectoryMember   Member that is a directory

##</code><code>##

# Morph into given class (do whatever cleanup I need to do)
sub _become # Archive::Zip::Member
{
 return bless( $_[0], $_[1] );
}

##</code><code>##

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