[p5sagit/p5-mst-13.2.git] / ext / Test-Simple / t / lib / TieOut.pm

package TieOut;

use strict;

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

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

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

sub FILENO { }

sub read {
    my $self = shift;
    my $data = $$self;
    $$self = '';
    return $data;
}

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