t/lib/Dev/Null.pm

   1 # For shutting up Test::Harness.
   2 # Has to work on 5.004 which doesn't have Tie::StdHandle.
   3 package Dev::Null;
   4
   5 sub WRITE  {}
   6 sub PRINT  {}
   7 sub PRINTF {}
   8 sub TIEHANDLE {
   9     my $class = shift;
  10     my $fh    = do { local *HANDLE;  \*HANDLE };
  11     return bless $fh, $class;
  12 }
  13 sub READ {}
  14 sub READLINE {}
  15 sub GETC {}
  16
  17 1;