Lines Matching refs:fh
908 my $fh = $self->todo ? $self->todo_output : $self->failure_output;
910 print $fh @msgs;
935 my $fh = $self->output;
945 print $fh @msgs;
951 $Test->output($fh);
960 $Test->failure_output($fh);
969 $Test->todo_output($fh);
980 my($self, $fh) = @_;
982 if( defined $fh ) {
983 $Out_FH = _new_fh($fh);
989 my($self, $fh) = @_;
991 if( defined $fh ) {
992 $Fail_FH = _new_fh($fh);
998 my($self, $fh) = @_;
1000 if( defined $fh ) {
1001 $Todo_FH = _new_fh($fh);
1009 my $fh;
1011 $fh = do { local *FH };
1012 open $fh, ">$file_or_fh" or
1016 $fh = $file_or_fh;
1019 return $fh;
1041 my($fh) = shift;
1042 my $old_fh = select $fh;