Lines Matching full:my
19 my $extra = 0 ;
43 #my $name = "test.gz" ;
44 my $lex = LexFile->new( my $name );
46 my $hello = <<EOM ;
51 my $len = length $hello ;
53 my ($x, $uncomp) ;
55 ok my $fil = gzopen($name, "wb") ;
84 my $xyz = "123" ;
96 my $lex = LexFile->new( my $name );
99 my $number = 7603 ;
100 my $num_len = 4 ;
102 ok my $fil = gzopen($name, "wb") ;
118 my $uncomp;
119 ok ((my $x = $fil->gzread($uncomp)) == $num_len) ;
140 my $text = 'text' ;
141 my $lex = LexFile->new( my $file );
144 ok my $f = gzopen($file, "wb") ;
147 my $contents = '' ;
151 my $len = length $contents ;
161 my $uncompressed ;
179 my $lex = LexFile->new( my $name );
181 my @text = (<<EOM, <<EOM, <<EOM, <<EOM) ;
191 my $text = join("", @text) ;
193 ok my $fil = gzopen($name, "wb") ;
200 my $line = '';
201 for my $i (0 .. @text -2)
223 my $lex = LexFile->new( my $name );
225 my $line1 = ("abcdefghijklmnopq" x 2000) . "\n" ;
226 my $line2 = "second line\n" ;
227 my $text = $line1 . $line2 ;
228 ok my $fil = gzopen($name, "wb"), " gzopen ok" ;
235 my $i = 0 ;
236 my @got = ();
237 my $line;
254 my $lex = LexFile->new( my $name );
256 my $line1 = "hello hello, I'm back again\n" ;
257 my $line2 = "there is no end in sight" ;
259 my $text = $line1 . $line2 ;
260 ok my $fil = gzopen($name, "wb"), " gzopen" ;
266 my @got = () ;
267 my $i = 0 ;
268 my $line;
288 my $lex = LexFile->new( my $name );
289 my $line1 = "hello hello, I'm back again\n" ;
290 my $line2 = "abc" x 200 ;
291 my $line3 = "def" x 200 ;
292 my $line;
294 my $text = $line1 . $line2 . $line3 ;
295 my $fil;
322 my $lex = LexFile->new( my $name );
324 my $hello = "hello" ;
325 my $len = length $hello ;
327 my $f = IO::File->new( ">$name" );
330 my $fil;
340 my $uncomp; my $x;
355 my $lex = LexFile->new( my $name );
357 my $hello = "hello" ;
358 my $len = length $hello ;
362 my $fil;
372 my $uncomp; my $x;
385 foreach my $stdio ( ['-', '-'], [*STDIN, *STDOUT])
387 my $stdin = $stdio->[0];
388 my $stdout = $stdio->[1];
392 my $lex = LexFile->new( my $name );
394 my $hello = "hello" ;
395 my $len = length $hello ;
398 my $dummy = fileno SAVEOUT;
401 my $status = 0 ;
403 my $fil = gzopen($stdout, "wb") ;
419 my $uncomp; my $x;
436 my $lex = LexFile->new( my $name );
438 my $fil;
465 my $lex = LexFile->new( my $name );
466 my $fil;
476 my $lex = LexFile->new( my $name );
477 my $text = "hello" ;
478 my $fil;
495 my $lex = LexFile->new( my $name );
504 my $written = do {
506 my $fh;
516 my $fil = gzopen($name, "wb") ;
526 my $lex = LexFile->new( my $name );
537 my $readable = do {
539 my $fh;
541 read $fh, my $data, 1
549 my $fil = gzopen($name, "rb") ;
560 my $buff ;
561 my $lex = LexFile->new( my $name );
563 my $first = "beginning" ;
564 my $last = "the end" ;
565 my $iow = gzopen($name, "w");
579 my $io = gzopen($name, "r");
593 my $here = $io->gztell() ;
605 my $lex = LexFile->new( my $name );
607 my $a = gzopen($name, "w");
621 my $u = gzopen($name, "r");
635 my $lex = LexFile->new( my $name );
637 my $a = gzopen($name, "w");
641 my $u = gzopen($name, "r");
643 my $buf1 ;
648 my $buf2 = "qwerty";
657 my $lex = LexFile->new( my $name );
659 my $a = gzopen($name, "w");
660 my $text = "fred\n";
661 my $len = length $text;
666 for my $delim ( undef, "", 0, 1, "abc", $text, "\n\n", "\n" )
669 my $u = gzopen($name, "r");
670 my $line;
681 my $lex = LexFile->new( my $name );
683 ok my $a = gzopen($name, "w");
694 my $lex = LexFile->new( my $name );
696 ok my $a = gzopen($name, "w");
697 my $text = "fred\n";
698 my $len = length $text;