TieOut.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
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;