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