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

package TieOut;

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