File Coverage

blib/lib/Games/Bingo/ColumnCollection.pm

Criterion	Covered	Total	%
statement	77	83	92.7
branch	22	26	84.6
condition	1	3	33.3
subroutine	14	14	100.0
pod	6	6	100.0
total	120	132	90.9

package Games::Bingo::ColumnCollection;

use strict;
use warnings;
use integer;
use Games::Bingo;
use Games::Bingo::Column;
use vars qw(@ISA $VERSION);
use Carp;

@ISA = qw(Games::Bingo);
$VERSION = '0.18';

sub new {
	my $class = shift;

	my $self =  bless [], $class;

	push @{$self}, @_ if (@_);

	return $self;
}

sub divide {
	my $self = shift;
	my $number_of_columns = shift;
	my @numbers = @_;

	for (my $number = 0; $number < $number_of_columns; $number++) {
		my @s = ();
		if ($number == 0) {
			@s = splice(@numbers, 0, 9);
		} elsif ($number == 8) {
			@s = splice(@numbers, 0, 11);
		} else {
			@s = splice(@numbers, 0, 10);
		}
		my $column = Games::Bingo::Column->new($number, @s);

		$self->add_column($column);
	}
}

sub add_column {
	my ($self, $column, $index) = @_;

	if ($index) {
		$self->[$index] = $column;
	} else {
		push(@{$self}, $column);
	}
}

sub _remove_column {
	my ($self, $idx) = @_;

	if ($idx < 0 ) {
		carp "cannot remove column, index cannot be a negative number ($idx)\n";
		return undef;
	} elsif ($idx > (scalar @{$self})) {
		carp "cannot remove column, no column with that index ($idx)\n";
		return undef;
	}

	splice(@{$self}, $idx, 1);
}

sub get_column {
	my ($self, $index, $do_splice, $auto_splice) = @_;

	if ($index !~ m/^(-)?\d+$/) {
		carp "no or illegal index specified";
		return undef;
	}

	if ($index < 0 ) {
		carp "cannot get column, index cannot be a negative number ($index)\n";
		return undef;
	} elsif ($index > (scalar @{$self})) {
		carp "cannot get column, no columns with that index ($index)\n";
		return undef;
	}

	my $column = $self->[$index];

	if ($auto_splice and $column) {
		my $length = $column->count_numbers();
		if ($length < 2) {
			$do_splice = 1;
		} else {
			$do_splice = 0;
		}
	}

	if ($do_splice) {
		my $v = $self->_remove_column($index);
	}
	return $column;
}

sub get_random_column {
	my ($self, $do_splice, $auto_splice) = @_;

	my $index = $self->random(scalar @{$self});
	my $column;

	eval {
		$column = $self->get_column($index, $do_splice, $auto_splice);
	};

	if (@!) {
		warn "unable to get random column: $@";
		return undef;
	} else {
		return $column;
	}
}

sub count_columns {
	my $self = shift;

	return scalar(@{$self});
}

1;

__END__