Lines Matching full:my
18 my $extra = 0 ;
36 my $string = shift || '' ;
37 my %opts = @_ ;
39 my $buffer ;
40 ok my $def = IO::Compress::Deflate->new( \$buffer, %opts );
45 ok my $inf = IO::Uncompress::Inflate->new( \$buffer, Append => 1 );
46 my $uncomp = "";
48 my $actual = 0 ;
49 my $status = 1 ;
58 ok my $hdr = $inf->getHeaderInfo();
66 my $string = shift || '' ;
67 my %opts = @_ ;
69 my $buffer ;
70 ok my $def = Compress::Raw::Zlib::Deflate->new( AppendOutput => 1, %opts );
75 ok my $inf = IO::Uncompress::Inflate->new( \$buffer, Append => 1 );
76 my $uncomp ;
78 my $actual = 0 ;
79 my $status = 1 ;
88 ok my $hdr = $inf->getHeaderInfo();
96 my $buffer = shift ;
97 my $inf = IO::Uncompress::Inflate->new( \$buffer );
98 my $hdr = $inf->getHeaderInfo();
101 while (my ($k, $v) = each %$hdr) {
110 #my $lex = LexFile->new( my $name );
115 my $string = <<EOM;
119 my $hdr = ReadHeaderInfo($string);
130 my $string = <<EOM;
134 my @tests = (
156 foreach my $test (@tests)
158 my $opts = $test->[0] ;
159 my $expect = $test->[1] ;
161 my @title ;
162 while (my ($k, $v) = each %$opts)
168 my $hdr = ReadHeaderInfo($string, %$opts);
170 my $hdr1 = ReadHeaderInfoZlib($string, %$opts);
174 my $cinfoValue = Compress::Raw::Zlib::is_zlibng() && Compress::Raw::Zlib::ZLIBNG_VERNUM() <= 0x2060 && defined $opts->{'-Level'} && $opts->{'-Level'} == 1 ? 5 : 7;
179 while (my ($k, $v) = each %$expect)
200 my $hdr = ReadHeaderInfo("");
212 my $string = <<EOM;
216 my $good ;
217 ok my $x = IO::Compress::Deflate->new( \$good );
223 my $buffer = $good ;
233 my $buffer = $good ;
244 my $method = shift ;
245 my $cinfo = shift ;
246 my $fdict = shift ;
247 my $level = shift ;
249 my $cmf = ($method & 0x0F) ;
251 my $flg = (($level & 0x03) << 6) ;
253 my $fcheck = 31 - ($cmf * 256 + $flg) % 31 ;
262 my $buffer = $good ;
263 my $header = mkZlibHdr(3, 6, 0, 3);
267 my $un = IO::Uncompress::Inflate->new( \$buffer, -Transparent => 0 );
278 my $string = <<EOM;
283 my $good ;
284 ok my $x = IO::Compress::Deflate->new( \$good );
288 foreach my $trim (-4 .. -1)
290 my $got = $trim + 4 ;
291 foreach my $s (0, 1)
294 my $lex = LexFile->new( my $name );
295 my $buffer = $good ;
296 my $expected_trailing = substr($good, -4, 4) ;
302 ok my $gunz = IO::Uncompress::Inflate->new( $name, Append => 1, Strict => $s );
303 my $uncomp ;
306 my $status ;
326 my $buffer = $good ;
327 my $crc = unpack("N", substr($buffer, -4, 4));
329 my $lex = LexFile->new( my $name );
332 ok my $gunz = IO::Uncompress::Inflate->new( $name, Append => 1, Strict => 1 );
333 my $uncomp ;
334 my $status ;
347 my $buffer = $good ;
348 my $crc = unpack("N", substr($buffer, -4, 4));
350 my $lex = LexFile->new( my $name );
353 ok my $gunz = IO::Uncompress::Inflate->new( $name, Append => 1, Strict => 0 );
354 my $uncomp ;
355 my $status ;