Lines Matching refs:fh
1047 my $fh = $self->output;
1056 print $fh $msg;
1072 my $fh = $self->todo ? $self->todo_output : $self->failure_output;
1073 print $fh @_;
1078 $Test->output($fh);
1087 $Test->failure_output($fh);
1096 $Test->todo_output($fh);
1107 my($self, $fh) = @_;
1109 if( defined $fh ) {
1110 $Out_FH = _new_fh($fh);
1116 my($self, $fh) = @_;
1118 if( defined $fh ) {
1119 $Fail_FH = _new_fh($fh);
1125 my($self, $fh) = @_;
1127 if( defined $fh ) {
1128 $Todo_FH = _new_fh($fh);
1137 my $fh;
1139 $fh = $file_or_fh;
1142 $fh = do { local *FH };
1143 open $fh, ">$file_or_fh" or
1147 return $fh;
1165 my($fh) = shift;
1166 my $old_fh = select $fh;