view release on metacpan or  search on metacpan

test.pl  view on Meta::CPAN

# `make test'. After `make install' it should work as `perl test.pl'

package PrintHandle;
require Tie::Handle;

@ISA = (Tie::Handle);

sub TIEHANDLE 
{
	my $string;
	bless \$string, shift;
}

sub READLINE
{
	my $self = shift;
	return $$self;
}

sub PRINT 
{