Select Code to Download

Exporter
  Archive::Zip                        Common base class, has defs.
...
      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

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

sub _become # Archive::Zip::FileMember
{
...
 delete( $self->{'fh'} );
 return $self->SUPER::_become( $newClass );
}