home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 December / PCpro_2006_12.ISO / ossdvd / server / Perl2 / site / lib / ppm / Archive / Zip.pm < prev   
Encoding:
Perl POD Document  |  2001-12-03  |  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.