1package TieOut;
2
3use strict;
4
5sub TIEHANDLE {
6    my $scalar = '';
7    bless( \$scalar, $_[0] );
8}
9
10sub PRINT {
11    my $self = shift;
12    $$self .= join( '', @_ );
13}
14
15sub PRINTF {
16    my $self = shift;
17    my $fmt  = shift;
18    $$self .= sprintf $fmt, @_;
19}
20
21sub FILENO { }
22
23sub read {
24    my $self = shift;
25    my $data = $$self;
26    $$self = '';
27    return $data;
28}
29
301;
31