package TieOut;
sub TIEHANDLE {
- bless( \(my $scalar), $_[0]);
+ my $scalar = '';
+ bless( \$scalar, $_[0]);
}
sub PRINT {
- my $self = shift;
- $$self .= join('', @_);
+ my $self = shift;
+ $$self .= join('', @_);
}
sub PRINTF {
- my $self = shift;
+ my $self = shift;
my $fmt = shift;
- $$self .= sprintf $fmt, @_;
+ $$self .= sprintf $fmt, @_;
}
+sub FILENO {}
+
sub read {
- my $self = shift;
- return substr($$self, 0, length($$self), '');
+ my $self = shift;
+ my $data = $$self;
+ $$self = '';
+ return $data;
}
1;