view release on metacpan or  search on metacpan

t/1.t  view on Meta::CPAN

#  It is reproduced in full here as it isn't a core module so it may not
#  be installed everywhere.
#

package Tie::Handle::Scalar;
use base 'Tie::Handle';
use Carp;
use FileHandle;

sub TIEHANDLE {
	my $class = bless {}, shift;

	my ($stringref) = @_;

	if (! defined($stringref)) {
		my $temp_s = '';
		$stringref = \$temp_s;
	}

	if (ref($stringref) ne "SCALAR") {
		croak "need a reference to a scalar,";