gnu/usr.bin/perl/dist/Dumpvalue/t/lib/TieOut.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

package TieOut;
use overload '"' => sub { "overloaded!" };

sub TIEHANDLE {
	my $class = shift;
	bless(\( my $ref), $class);
}

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

sub read {
	my $self = shift;
	return substr($$self, 0, length($$self), '');
}

1;