Lines Matching refs:handle
86 my $handle = FileHandle->new($file, 'r');
87 if (!defined($handle)) {
93 $line = $handle->getline();
110 $handle->close();
434 my $handle = FileHandle->new($file, 'w');
435 if (!defined($handle)) {
443 output_lines($preamble_header, $generator, $handle, $lineinfo);
445 output_lines($testsuite->{preambles}, $generator, $handle, $lineinfo);
452 output_lines($preamble_footer, $generator, $handle, $lineinfo);
456 output_lines($testsuite->{tests}->[$i], $generator, $handle,
469 output_lines($main_header, $generator, $handle, $lineinfo);
475 $generator, $handle, $lineinfo);
498 output_lines($main_footer, $generator, $handle, $lineinfo);
500 $handle->close();
504 my ($lines, $generator, $handle, $lineinfo) = @_;
516 $handle->printf("#line %d \"%s\"\n", $generator->{lineno} + 1,
520 $handle->print("$line\n");