home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _523a37bd24cbf2fa34e0156679d5239a < prev    next >
Encoding:
Text File  |  2004-06-01  |  379 b   |  25 lines
  1. package PPM::Archive::Zip;
  2.  
  3. use strict;
  4. use Archive::Zip;
  5. use base qw(PPM::Archive);
  6.  
  7. sub load {
  8.     my $o = shift;
  9.     my $f = $o->{file};
  10.     $o->{archive} = Archive::Zip::->new($f);
  11. }
  12.  
  13. sub list_files {
  14.     my $o = shift;
  15.     $o->{archive}->memberNames;
  16. }
  17.  
  18. sub extract {
  19.     my $o = shift;
  20.     my $f = shift;
  21.     $o->{archive}->extractMember($f);
  22. }
  23.  
  24. 1;
  25.