Lines Matching full:my
21 my $extra = 0 ;
26 my $count = 0 ;
51 my $string = shift ;
52 my ($dummy, $file, $line) = caller ;
64 my $string = shift ;
72 my $hello = <<EOM ;
77 my $len = length $hello ;
93 my $hello = "I am a HAL 9000 computer" ;
94 my @hello = split('', $hello) ;
95 my ($err, $x, $X, $status);
105 my $Answer = '';
126 my @Answer = split('', $Answer) ;
128 my $k;
135 my $GOT = '';
136 my $Z;
158 my $hello = 6529 ;
160 ok my ($x, $err) = new Compress::Raw::Bzip2 (1) ;
164 my $status;
165 my $Answer = '';
171 my @Answer = split('', $Answer) ;
173 my $k;
178 #my $GOT = '';
179 my $GOT ;
200 my $hello = "I am a HAL 9000 computer" ;
201 my @hello = split('', $hello) ;
203 ok my ($x, $err) = new Compress::Raw::Bzip2 (1) ;
207 my $status;
208 my $X;
220 my @Answer = split('', $X) ;
222 my $k;
227 my $Z;
246 my $contents = '' ;
251 ok my ($x, $err) = new Compress::Raw::Bzip2(0) ;
255 my (%X, $Y, %Z, $X, $Z);
270 my $keep = $Y ;
272 my $k;
288 my $s ;
289 my $out ;
290 my @bits = split('', $keep) ;
291 foreach my $bit (@bits) {
303 for my $consume ( 0 .. 1)
307 ok my $x = new Compress::Raw::Bzip2(0) ;
309 my ($X, $Y, $Z);
314 ok my $k = new Compress::Raw::Bunzip2(0, $consume) ;
316 my $first = substr($X, 0, 2) ;
317 my $remember_first = $first ;
318 my $last = substr($X, 2) ;
327 my $T ;
329 my $remember_last = $last ;
345 ok my $k = new Compress::Raw::Bunzip2(0, 1) ;
347 my $Z;
365 my $contents = '' ;
368 ok my $x = new Compress::Raw::Bzip2(1) ;
370 my $X ;
371 my $status = $x->bzdeflate(substr($contents,0), $X);
376 my $append = "Appended" ;
379 ok my $k = new Compress::Raw::Bunzip2(1, 1) ;
381 my $Z;
382 my $keep = $X ;
398 my $hello = "I am a HAL 9000 computer" ;
399 my @hello = split('', $hello) ;
400 my ($err, $x, $X, $status);
407 my $Answer = '';
421 my @Answer = split('', $Answer) ;
423 my $k;
428 my $GOT ;
429 my $Z;
452 my $hello = "I am a HAL 9000 computer" ;
453 my $data = $hello ;
455 my($X, $Z);
457 ok my $x = new Compress::Raw::Bzip2 (1);
463 my $append = "Appended" ;
465 my $keep = $X ;
467 ok my $k = new Compress::Raw::Bunzip2 ( 1, 1);
493 my $hello = "I am a HAL 9000 computer" ;
494 my $data = $hello ;
496 my($X, $Z);
498 ok my $x = new Compress::Raw::Bzip2 ( {-AppendOutput => 1} );
504 ok my $k = new Compress::Raw::Bunzip2 ( {-AppendOutput => 1,
513 # my $prev = $Z;
529 my $hello = "I am a HAL 9000 computer" ;
530 my $data = $hello ;
532 my($X, $Z);
541 # my $prev = $Z;
546 ok my $x = new Compress::Raw::Bzip2 ( { -AppendOutput => 1 } );
552 ok my $k = new Compress::Raw::Bunzip2 ( {-AppendOutput => 1,
564 my $hello = "I am a HAL 9000 computer" ;
565 my $data = $hello ;
567 my($X, $Z);
569 my $F = 'prev. ' ;
575 ok my $x = new Compress::Raw::Bzip2 ( {-AppendOutput => 1 });
581 ok my $k = new Compress::Raw::Bunzip2 ( {-AppendOutput => 1,
594 my $hello = "I am a HAL 9000 computer" ;
595 my @hello = split('', $hello) ;
596 my ($err, $x, $X, $status);
603 my $Answer = '';
615 my @Answer = split('', $Answer) ;
617 my $k;
622 my $GOT = '';
623 my $Z;
640 my $hello = "I am a HAL 9000 computer" ;
641 my @hello = split('', $hello) ;
642 my ($err, $x, $X, $status);
649 my $Answer = '';
661 my @Answer = split('', $Answer) ;
663 my $k;
668 my $GOT = '';
669 my $Z;