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