1234567891011121314151617181920212223242526272829 BEGIN { if ($ENV{PERL_CORE}) { chdir 't' if -d 't'; @INC = ("../lib", "lib/compress"); }}use lib qw(t t/compress);use strict;use warnings;use IO::Uncompress::AnyUncompress qw($AnyUncompressError) ;use IO::Compress::Gzip qw($GzipError) ;use IO::Uncompress::Gunzip qw($GunzipError) ;sub getClass{ 'AnyUncompress';}sub identify{ 'IO::Compress::Gzip';}require "any.pl" ;run();
BEGIN {
if
(
$ENV
{PERL_CORE}) {
chdir
't'
-d
;
@INC
= (
"../lib"
,
"lib/compress"
);
}
use
lib
qw(t t/compress)
strict;
warnings;
IO::Uncompress::AnyUncompress
qw($AnyUncompressError)
IO::Compress::Gzip
qw($GzipError)
IO::Uncompress::Gunzip
qw($GunzipError)
sub
getClass
{
'AnyUncompress'
identify
'IO::Compress::Gzip'
require
"any.pl"
run();