File Coverage

blib/lib/Apache/GopherHandler/TiedSocket.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	23	23	100.0

package Apache::GopherHandler::TiedSocket;
use strict;
use warnings;


sub TIEHANDLE
{
	my ($class, $socket) = @_;
	bless [ $socket ], $class;
}

sub PRINT
{
	my ($self, @to_print) = @_;
	my $socket = $self->[0];

	use bytes; # Need byte length, not char length
	my $to_print = join('', @to_print);
	$socket->send( $to_print, length $to_print );
}

sub READ
{
	my ($self, $buf, $len) = @_;
	$self->[0]->recv( $buf, $len );
}

1;
__END__