"Fossies" - the Fresh Open Source Software Archive

Member "perl-5.32.1/cpan/IO-Compress/t/002any-deflate.t" (18 Dec 2020, 417 Bytes) of package /linux/misc/perl-5.32.1.tar.xz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file.

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