[perl5.git] / t / lib / TieOut.pm

package TieOut;

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

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

sub PRINTF {
	my $self = shift;
    my $fmt  = shift;
	$$self .= sprintf $fmt, @_;
}

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
f6d6199c MS	12	sub PRINTF {
	13	my $self = shift;
	14	my $fmt = shift;
	15	$$self .= sprintf $fmt, @_;
	16	}
	17
39234879 MS	18	sub read {
	19	my $self = shift;
	20	return substr($$self, 0, length($$self), '');
	21	}
	22
	23	1;