[p5sagit/p5-mst-13.2.git] / t / lib / Dev / Null.pm

# 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;
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 {
e4fc8a1e	10	my $class = shift;
b965d173	11	my $fh = do { local HANDLE; \HANDLE };
e4fc8a1e	12	return bless $fh, $class;
e4fc8a1e	13	}
b965d173	14	sub READ { }
	15	sub READLINE { }
	16	sub GETC { }
e4fc8a1e	17
e4fc8a1e	18	1;