[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
	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;