File Coverage

blib/lib/Stream/StringInputStream.pm

Criterion	Covered	Total	%
statement	21	34	61.7
branch	3	10	30.0
condition	1	2	50.0
subroutine	5	8	62.5
pod	0	6	0.0
total	30	60	50.0

#!/usr/local/bin/perl -w

#
# Copyright (C) 1995, 1996 Systemics Ltd (http://www.systemics.com/)
# All rights reserved.
#

package Stream::StringInputStream;

@StringInputStream::ISA = qw(Stream::StringInputStream);

#
#	StringInputStream
#
#		Inherits from InputStream, redefining all of it's member
#		functions:
#			read
#			skip
#			readAll
#

use strict;
use Carp;

sub usage
{
    my ($package, $filename, $line, $subr) = caller(1);
	$Carp::CarpLevel = 2;
	croak "Usage: $subr(@_)";
}

sub new
{
	usage("string") unless @_ == 2;

	my $type = shift; my $self = {}; bless $self, $type;

	$self->{'data'} = shift || return "Undefined parameter";

	$self;
}

sub read
{
	usage("count") unless @_ == 2;

	my $self = shift;
	my $count = shift;

	my $retval = substr($self->{'data'}, 0, $count);
	substr($self->{'data'}, 0, $count) = '';
	$retval;
}

sub skip
{
	usage("count") unless @_ == 2;

	my $self = shift;
	my $count = shift;

	substr($self->{'data'}, 0, $count) = '';
	return;
}

sub readAll
{
	usage unless @_ == 1;

	my $self = shift;

	my $retval = $self->{'data'};
	$self->{'data'} = '';
	$retval;
}

sub eoi
{
	usage("eoi") unless @_ == 1;

	my $self = shift;
	return (length($self->{'data'}) == 0);
}

1;