Lines Matching refs:fh
115 my $fh = $class->SUPER::new ();
118 $fh->open (@_);
120 $fh;
132 my $fh = shift;
139 ${*$fh}{'autom4te_xfile_file'} = "$file";
141 if (!$fh->SUPER::open (@_))
150 binmode $fh if $file =~ /^\s*>/;
161 my $fh = shift;
162 if (!$fh->SUPER::close (@_))
164 my $file = $fh->name;
211 my $fh = shift;
212 return ${*$fh}{'autom4te_xfile_file'};
225 my ($fh, $mode) = @_;
240 if (!flock ($fh, $mode))
245 my $file = $fh->name;
261 my $fh = shift;
263 if (!seek ($fh, $_[0], $_[1]))
265 my $file = $fh->name;
278 my ($fh, $len) = @_;
279 if (!truncate ($fh, $len))
281 my $file = $fh->name;