vcs.maemo.org Git - pkg-perl/blob - deb-src/libtest-harness-perl/libtest-harness-perl-3.12/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
   9 sub TIEHANDLE {
  10     my $class = shift;
  11     my $fh = do { local *HANDLE; \*HANDLE };
  12     return bless $fh, $class;
  13 }
  14 sub READ     { }
  15 sub READLINE { }
  16 sub GETC     { }
  17
  18 1;