git.maemo.org Git - pkg-perl/blob - deb-src/libio-compress-zlib-perl/libio-compress-zlib-perl-2.012/t/108anyunc-zip.t

   1 BEGIN {
   2     if ($ENV{PERL_CORE}) {
   3         chdir 't' if -d 't';
   4         @INC = ("../lib", "lib/compress");
   5     }
   6 }
   7
   8 use lib 't/compress';
   9 use strict;
  10 use warnings;
  11
  12 use IO::Uncompress::AnyUncompress qw($AnyUncompressError) ;
  13
  14 use IO::Compress::Zip     qw($ZipError) ;
  15 use IO::Uncompress::Unzip qw($UnzipError) ;
  16
  17 sub getClass
  18 {
  19     'AnyUncompress';
  20 }
  21
  22
  23 sub identify
  24 {
  25     'IO::Compress::Zip';
  26 }
  27
  28 require "any.pl" ;
  29 run();