"Fossies" - the Fresh Open Source Software Archive

Member "perl-5.32.1/cpan/IO-Compress/t/002any-gzip.t" (18 Dec 2020, 408 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 use IO::Uncompress::AnyInflate qw($AnyInflateError) ;
   13 
   14 use IO::Compress::Gzip     qw($GzipError) ;
   15 use IO::Uncompress::Gunzip qw($GunzipError) ;
   16 
   17 sub getClass
   18 {
   19     'AnyInflate';
   20 }
   21 
   22 
   23 sub identify
   24 {
   25     'IO::Compress::Gzip';
   26 }
   27 
   28 require "any.pl" ;
   29 run();