"Fossies" - the Fresh Open Source Software Archive

Member "perl-5.32.1/cpan/IO-Compress/t/002any-rawdeflate.t" (18 Dec 2020, 431 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 use IO::Compress::RawDeflate   qw($RawDeflateError) ;
   14 use IO::Uncompress::RawInflate qw($RawInflateError) ;
   15 
   16 sub getClass
   17 {
   18     'AnyInflate';
   19 }
   20 
   21 
   22 sub identify
   23 {
   24     'IO::Compress::RawDeflate';
   25 }
   26 
   27 require "any.pl" ;
   28 run();