[perl5.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;
	return substr($$self, 0, length($$self), '');
}

1;
Commit	Line	Data
39234879 MS	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;
	14	return substr($$self, 0, length($$self), '');
	15	}
	16
	17	1;