Lines Matching full:my
15 my $extra = 0 ;
17 my $st = eval { require Test::NoWarnings ; Test::NoWarnings->import; 1; };
26 my $filename = shift ;
27 my $init = shift ;
30 my $fil = $UncompressClass->can('new')->( $UncompressClass, $filename,
35 my $data = '';
45 my $CompressClass = identify();
47 my $Error = getErrorRef($CompressClass);
48 my $UnError = getErrorRef($UncompressClass);
59 my($out, $gz);
61 my $x ;
64 foreach my $name (qw(read readline getc))
84 my $out = "" ;
86 my $lex = LexFile->new( my $name );
93 my $gc ;
94 my $guz = $CompressClass->can('new')->( $CompressClass, \$gc);
98 my $x ;
99 my $gz = $UncompressClass->can('new')->( $UncompressClass, \$gc);
101 foreach my $name (qw(print printf write))
114 my ($a, $x, @x) = ("","","") ;
125 foreach my $Type ( $CompressClass, $UncompressClass)
129 my ($a, $x, @x) = ("","","") ;
152 my $lex = LexFile->new( my $name );
154 my $hello = <<EOM ;
160 my $x ;
173 my $uncomp;
174 ok my $x = $UncompressClass->can('new')->( $UncompressClass, $name, -Append => 1 );
177 my $len ;
195 my $lex = LexFile->new( my $name );
197 my $hello = <<EOM ;
203 my $x ;
213 my $uncomp;
214 my $x = $UncompressClass->can('new')->( $UncompressClass, $name );
217 my $data = '';
232 my $lex = LexFile->new( my $name );
234 my $hello = <<EOM ;
240 my $fh = IO::File->new( ">$name" );
242 my $x = $CompressClass->can('new')->( $CompressClass, $fh );
254 my $uncomp;
256 my $x ;
257 ok my $fh1 = IO::File->new( "<$name" );
275 my $lex = LexFile->new( my $name );
276 #my $name = "/tmp/fred";
278 my $hello = <<EOM ;
287 my $x = $CompressClass->can('new')->( $CompressClass, *FH );
300 my $uncomp;
303 my $x ;
319 my $lex = LexFile->new( my $name );
320 #my $name = "/tmp/fred";
322 my $hello = <<EOM ;
331 my $dummy = fileno SAVEOUT;
334 my $x = $CompressClass->can('new')->( $CompressClass, '-' );
353 my $x ;
354 my $uncomp ;
355 my $stdinFileno = fileno(STDIN);
359 my $dummy = fileno SAVEIN;
378 #my $name = "test.gz" ;
379 my $lex = LexFile->new( my $name );
381 my $hello = <<EOM ;
386 my $buffer ;
388 my $x ;
404 my $keep = $buffer ;
405 my $uncomp;
407 my $x ;
427 my $buffer = '';
429 my $x ;
436 my $keep = $buffer ;
437 my $uncomp= '';
439 my $x ;
457 my $lex = LexFile->new( my $name );
459 my $hello = <<EOM ;
464 my $input = '' ;
465 my $contents = '' ;
468 my $x = $CompressClass->can('new')->( $CompressClass, $name );
488 my $x = readFile($name) ;
500 my $lex = LexFile->new( my $name );
502 my $hello = <<EOM ;
507 my $header = "header info\n" ;
508 my $trailer = "trailer data\n" ;
511 my $fh ;
514 my $x ;
525 my ($fil, $uncomp) ;
526 my $fh1 ;
529 my $line = <$fh1> ;
532 ok my $x = $UncompressClass->can('new')->( $UncompressClass, $fh1, Append => 1 );
537 my $rest ;
552 my $hello = <<EOM ;
557 my $trailer = "trailer data" ;
559 my $compressed ;
562 ok my $x = $CompressClass->can('new')->( $CompressClass, \$compressed);
569 my $uncomp;
570 ok my $x = $UncompressClass->can('new')->( $UncompressClass, \$compressed, Append => 1) ;
582 my $lex = LexFile->new( my $name );
584 my $io = $CompressClass->new($name);
588 my $heisan = "Heisan\n";
611 my $foo = "1234567890";
642 my $str = <<EOT;
651 my $lex = LexFile->new( my $name );
653 my %opts = () ;
654 my $iow = $CompressClass->can('new')->( $CompressClass, $name, %opts );
660 my @tmp;
661 my $buf;
663 my $io = $UncompressClass->can('new')->( $UncompressClass, $name );
669 #my @lines = <$io>;
670 my @lines = $io->getlines();
691 my $io = $UncompressClass->new($name);
695 my @lines = $io->getlines;
703 my $line = $io->getline();
710 my $io = $UncompressClass->new($name);
714 my @lines = $io->getlines();
727 my $reclen = 7 ;
728 my $expected_records = int(length($str) / $reclen)
732 my $io = $UncompressClass->new($name);
737 my @lines = $io->getlines();
750 my $io = $UncompressClass->new($name);
751 my @lines = ();
752 my $no = 0;
753 my $err = 0;
755 while (my $a = $io->getline()) {
777 my $io = $UncompressClass->new($name);
803 my $remain = length($str) - 9;
837 my $str = <<EOT;
845 my $lex = LexFile->new( my $name );
848 my @tmp;
849 my $buf;
851 my $io = $UncompressClass->can('new')->( $UncompressClass, $name, -Transparent => 1 );
856 my @lines = $io->getlines();
876 my $io = $UncompressClass->new($name);
878 my @lines = $io->getlines;
886 my $line = $io->getline;
895 my $io = $UncompressClass->new($name);
897 my @lines = $io->getlines;
910 my $reclen = 7 ;
911 my $expected_records = int(length($str) / $reclen)
915 my $io = $UncompressClass->new($name);
920 my @lines = $io->getlines();
933 my $io = $UncompressClass->new($name);
934 my @lines = ();
935 my $no = 0;
936 my $err = 0;
938 while (my $a = $io->getline) {
960 my $io = $UncompressClass->new($name);
981 my $remain = length($str) - 9;
1016 my $str = <<EOT;
1029 foreach my $bufsize (1, 3, 512, 4096, length($str)-1, length($str), length($str)+1)
1031 foreach my $trans (0, 1)
1033 foreach my $append (0, 1)
1037 my $lex = LexFile->new( my $name );
1043 my $iow = $CompressClass->can('new')->( $CompressClass, $name );
1049 my $io = $UncompressClass->new($name,
1053 my $buf;
1061 my $tmp ;
1073 foreach my $file (0, 1)
1075 foreach my $trans (0, 1)
1079 my $buffer ;
1080 my $buff ;
1081 my $lex = LexFile->new( my $name );
1083 my $first = "beginning" ;
1084 my $last = "the end" ;
1093 my $output ;
1103 my $iow = $CompressClass->can('new')->( $CompressClass, $output );
1116 my $input ;
1128 my $io = $UncompressClass->new($input, Strict => 1);
1139 my $here = $io->tell() ;
1153 my $b ;
1154 my $a = $CompressClass->can('new')->( $CompressClass, \$b) ;
1168 my $u = $UncompressClass->can('new')->( $UncompressClass, \$b) ;
1180 foreach my $fb (qw(filename buffer filehandle))
1182 foreach my $append (0, 1)
1187 my $lex = LexFile->new( my $name );
1189 my $already = 'already';
1190 my $buffer = $already;
1191 my $output;
1206 my $a = $CompressClass->can('new')->( $CompressClass, $output, Append => $append) ;
1208 my $string = "appended";
1212 my $data ;
1231 my $uncomp;
1232 my $x = $UncompressClass->can('new')->( $UncompressClass, \$data, Append => 1) ;
1235 my $len ;
1245 foreach my $type (qw(buffer filename filehandle))
1247 foreach my $good (0, 1)
1251 my $compressed ;
1252 my $string = "some data";
1253 my $appended = "append";
1257 my $c = $CompressClass->can('new')->( $CompressClass, \$compressed);
1266 my $comp_len = length $compressed;
1269 my $lex = LexFile->new( my $name );
1270 my $input ;
1283 my $fh = IO::File->new( "<$name" );
1288 my $x = $UncompressClass->can('new')->( $UncompressClass, $input,
1293 my $len ;
1294 my $output;
1302 my $rest ;
1311 foreach my $append (0, 1)
1315 my $lex = LexFile->new( my $name );
1317 my $string = "appended";
1318 my $compressed ;
1319 my $c = $CompressClass->can('new')->( $CompressClass, \$compressed);
1323 my $x = $UncompressClass->can('new')->( $UncompressClass, \$compressed, Append => $append) ;
1326 my $already = 'already';
1327 my $output = $already;
1329 my $len ;
1344 foreach my $file (0, 1)
1346 foreach my $trans (0, 1)
1350 my $lex = LexFile->new( my $name );
1352 my $string = 'abcdeABCDE';
1353 my $b ;
1360 my $a = $CompressClass->can('new')->( $CompressClass, \$b) ;
1365 my $from ;
1376 my $u = $UncompressClass->new($from, Transparent => 1) ;
1377 my $first;
1378 my $buff ;
1402 my $extra = 'extra';
1421 #my $lex = LexFile->new( my $name1 );
1422 my($Answer);
1426 my @data = (
1437 foreach my $data (@data)
1439 my ($send, $get) = @$data ;
1441 my($copy);
1443 my $x = $CompressClass->can('new')->( $CompressClass, \$Answer);
1456 # foreach my $data (@data)
1458 # my ($send, $get) = @$data ;
1460 # my $copy;
1462 # my $x = $CompressClass->can('new')->( $CompressClass, \$Answer);
1482 # my @a ;
1483 # for my $x ( @{ $_[0] })
1497 # #my $data = shift ;
1498 # my $from = $_[1] ;
1499 # my $to = $_[2] ;
1519 # for my $x ( @{ $_[0] })
1531 # my $file1 = "file1" ;
1532 # my $file2 = "file2" ;
1533 # my $file3 = "file3" ;
1534 # my $lex = LexFile->new( $file1, $file2, $file3 );
1540 # my @data = (
1568 # foreach my $data (@data)
1570 # my ($send, $get) = @$data ;
1572 # my $fh1 = IO::File->new( "< $file1" );
1573 # my $fh2 = IO::File->new( "< $file2" );
1574 # my $fh3 = IO::File->new( "< $file3" );
1577 # my $copy;
1579 # my $Answer ;
1580 # my $x = $CompressClass->can('new')->( $CompressClass, \$Answer);
1582 # my $len = length $get;
1599 foreach my $type (qw(filename filehandle buffer ))
1601 foreach my $append (0, 1)
1605 my $appended = "append";
1606 my $string = "some data";
1607 my $compressed ;
1609 my $c = $CompressClass->can('new')->( $CompressClass, \$compressed);
1612 my $comp_len = length $compressed;
1615 my $lex = LexFile->new( my $name );
1616 my $input ;
1629 my $fh = IO::File->new( "<$name" );
1640 my $x = $UncompressClass->can('new')->( $UncompressClass, $input, Transparent => 0 )
1656 my $fh = IO::File->new( "<$name" );
1661 my $x = $UncompressClass->can('new')->( $UncompressClass, $input, Transparent => 0 )
1665 my $buffer;
1680 my $fh = IO::File->new( "<$name" );
1684 my $x = $UncompressClass->can('new')->( $UncompressClass, $input, Transparent => 0,
1689 my $buffer;
1702 my $fh = IO::File->new( "<$name" );
1706 my $x = $UncompressClass->can('new')->( $UncompressClass, $input, Append => 1 );
1709 my $buffer = "123";
1724 my $original = join '', map { chr } 0x00 .. 0xff ;
1730 my $string = $original;
1732 my $lex = LexFile->new( my $name, my $compressed) ;
1733 my $input ;
1736 my $c = $CompressClass->can('new')->( $CompressClass, $compressed);
1741 my $u = $UncompressClass->can('new')->( $UncompressClass, $compressed, Transparent => 0 )
1744 my $buffer;