File Coverage

lib/Games/PMM/Monster/Commands.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	2	2	100.0
condition			n/a
subroutine	4	4	100.0
pod	2	3	66.6
total	22	23	95.6

package Games::PMM::Monster::Commands;

use strict;

sub new
{
	my $class    = shift;
	my $commands = $class->process_commands( @_ );
	bless $commands, $class;
}

sub process_commands
{
	my $self     = shift;
	return [ ( map { [ split( ' ', $_  ) ] } @_ ), undef ];
}

sub next
{
	my $self    = shift;
	my $command = shift @$self;

	push   @$self,  $command;
	return         @$command if defined $command;
	return;
}

1;
__END__