Null.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
# For shutting up Test::Harness.
# Has to work on 5.004 which doesn't have Tie::StdHandle.
package Dev::Null;
sub WRITE {}
sub PRINT {}
sub PRINTF {}
sub TIEHANDLE {
my $class = shift;
my $fh = do { local *HANDLE; \*HANDLE };
return bless $fh, $class;
}
sub READ {}
sub READLINE {}
sub GETC {}
1;