"Fossies" - the Fresh Open Source Software Archive

Member "perl-5.32.1/cpan/IO-Compress/t/001zlib-generic-deflate.t" (18 Dec 2020, 327 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::Compress::Deflate   qw($DeflateError) ;
   13 use IO::Uncompress::Inflate qw($InflateError) ;
   14 
   15 sub identify
   16 {
   17     'IO::Compress::Deflate';
   18 }
   19 
   20 require "zlib-generic.pl" ;