xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/t/lib/Dev/Null.pm (revision 0:68f95e015346) 
1# For shutting up Test::Harness.
2# Has to work on 5.004 which doesn't have Tie::StdHandle.
3package Dev::Null;
4
5sub WRITE  {}
6sub PRINT  {}
7sub PRINTF {}
8sub TIEHANDLE {
9    my $class = shift;
10    my $fh    = do { local *HANDLE;  \*HANDLE };
11    return bless $fh, $class;
12}
13sub READ {}
14sub READLINE {}
15sub GETC {}
16
171;
18