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