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

package TieOut;

sub TIEHANDLE {
	bless( \(my $scalar), $_[0]);
}

sub PRINT {
	my $self = shift;
	$$self .= join('', @_);
}

sub read {
	my $self = shift;
    my $out = $$self;
    $$self = '';
	return $out;
}

1;
Commit	Line	Data
39234879	1	package TieOut;
	2
	3	sub TIEHANDLE {
	4	bless( \(my $scalar), $_[0]);
	5	}
	6
	7	sub PRINT {
	8	my $self = shift;
	9	$$self .= join('', @_);
	10	}
	11
	12	sub read {
	13	my $self = shift;
60ffb308	14	my $out = $$self;
	15	$$self = '';
	16	return $out;
39234879	17	}
	18
	19	1;