File Coverage

blib/lib/Gopher/Server/Response.pm

Criterion	Covered	Total	%
statement	6	29	20.6
branch	0	10	0.0
condition	0	3	0.0
subroutine	2	8	25.0
pod	0	3	0.0
total	8	53	15.0

package Gopher::Server::Response;
use strict;
use warnings;


sub new
{
	my ($class, $in) = @_;
	die "Need a hashref" unless ref $in eq 'HASH';

	my $request = $in->{request}
		or die "Need a request to give a response to";
	my $self = {
		request             => $request,
		gopher_plus         => $in->{gopher_plus},
		fh                  => $in->{fh},
		information_blocks  => $in->{information_blocks},
		menu_items          => $in->{menu_items},
	};
	bless $self, $class;
}


sub print_to
{
	my $self  = shift;
	my $fh    = shift || *STDOUT;

	if($self->{fh}) {
		$self->_print_filehandle( $fh );
	}
	elsif($self->{menu_items}) {
		$self->_print_menu( $fh );
	}
	elsif($self->{information_blocks}) {
		$self->_print_info( $fh );
	}
	else {
		die "Don't have anything to print!";
	}
}

sub _print_filehandle
{
	my ($self, $fh) = @_;
	my $in = $self->{fh};

	while( read( $in, my $buf, 8192 ) ) {
		print $fh $buf;
	}
}

sub _print_menu
{
	my ($self, $fh) = @_;

	foreach my $menu_item (@{ $self->{menu_items} }) {
		print $fh $menu_item->as_string, "\r\n";
	}

	print $fh ".\r\n";
}

sub _print_info
{
	my ($self, $fh) = @_;
}


sub request { $_[0]->{request} }

1;
__END__