Commit | Line | Data |
---|---|---|
1a6a8453 | 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'; | |
9 | use strict; | |
10 | use warnings; | |
11 | ||
12 | use IO::Uncompress::AnyUncompress qw($AnyUncompressError) ; | |
13 | ||
14 | use IO::Compress::RawDeflate qw($RawDeflateError) ; | |
15 | use IO::Uncompress::RawInflate qw($RawInflateError) ; | |
16 | ||
17 | sub getClass | |
18 | { | |
19 | 'AnyUncompress'; | |
20 | } | |
21 | ||
22 | ||
23 | sub identify | |
24 | { | |
25 | 'IO::Compress::RawDeflate'; | |
26 | } | |
27 | ||
28 | require "any.pl" ; | |
29 | run(); |