File Coverage

blib/lib/Games/Bingo/Card.pm

Criterion	Covered	Total	%
statement	132	132	100.0
branch	28	28	100.0
condition	2	3	66.6
subroutine	18	18	100.0
pod	4	4	100.0
total	184	185	99.4

package Games::Bingo::Card;

use strict;
use warnings;
use 5.006; #perl 5.6.0
use integer;
use vars qw($VERSION);
use Games::Bingo::Column;
use Games::Bingo::ColumnCollection;
use Games::Bingo::Constants qw(
	NUMBER_OF_NUMBERS_IN_CARD
	NUMBER_OF_COLUMNS_IN_CARD
	NUMBER_OF_ROWS_IN_CARD
	NUMBER_OF_NUMBERS_IN_ROW
	NUMBER_OF_NUMBERS
);

$VERSION = '0.17';

sub new {
	my ($class) = @_;

	my $self = bless [], $class;

	return $self;
}

sub get_all_numbers {
	my $self = shift;

	my @numbers = ();
	foreach my $row (@{$self}) {
		foreach my $number (@{$row}) {
			push(@numbers, $number) if $number;
		}
	}
	return @numbers;
}

sub validate {
	my ($self, $bingo) = @_;

	my $rv = 0;
	my $trv = NUMBER_OF_NUMBERS_IN_CARD;

	if ($bingo->{game}) {
		my @numbers = $self->get_all_numbers();

		foreach my $number (@numbers) {
			++$rv if $bingo->pulled($number);
		}
		$trv = NUMBER_OF_NUMBERS_IN_CARD;
	} else {
		warn "bingo game not defined?\n";
	}

	if ($rv == $trv) {
		$bingo->{game}--;
		return 1;
	} else {
		return 0;
	}
}

sub _print_card {
	my $self  = shift;

	my $row = 0;
	for (my $m = 0; $m < 7; $m++) {
		my $column = 0;

		if ($m%2) {
			for (my $n = 1; $n < 20; $n++) {
				if ($n%2) {
					print "|";
				} else {
					if ($self->[$column][$row]) {
						printf("%2d",$self->[$column][$row]);
					} else {
						print "  ";
					}
					++$column;
				}
			}
			$row++;
		} else {
			for (my $n = 1; $n < 20; $n++) {
				if ($n%2) {
					print "+";
				} else {
					print "--";
				}
			}
		}
		print "\n";
	}
	return 1;
}

sub _insert {
	my ($self, $row, $number) = @_;

	my $column = $self->_resolve_column($number);
	$self->[$column]->[$row] = $number;

	return 1;
}

sub _integrity_check {
	my ($self) = @_;

	my $rv = NUMBER_OF_NUMBERS_IN_CARD;
	foreach my $row (@{$self})	{
		foreach my $cell (@{$row}) {
			if ($cell and $cell =~ m/^\d+$/o) {
				$rv--;
			}
		}
	}
	if ($rv != 0) {
		return 0;
	} else {
		return 1;
	}
}

sub _resolve_column {
	my ($self, $number) = @_;

	my $result = ($number / 10);
	my ($column) = $result =~ m/^(\d{1})$/o;

	if ($result < 1) { #ones go in column 0
		$column = 0;
	} elsif ($result == NUMBER_OF_COLUMNS_IN_CARD) { #9 go in column 8
		$column = 8;
	}
	return $column;
}

sub _init {
	my ($self) = @_;

	my @numbers;
	my $bingo = Games::Bingo->new();
	$bingo->init(\@numbers, NUMBER_OF_NUMBERS);

	#Creating the numeric set to pick from
	my $temp_collection = Games::Bingo::ColumnCollection->new();
	$temp_collection->divide(NUMBER_OF_COLUMNS_IN_CARD, @numbers);

	my $final_collection = Games::Bingo::ColumnCollection->new();

	#Getting the first 9 numbers
	for (my $i = 0; $i < NUMBER_OF_COLUMNS_IN_CARD; $i++) {
		my $c = $temp_collection->get_column($i);
		my $n = $c->get_random_number(1);

		my $fc = Games::Bingo::Column->new($i);
		$fc->populate($n);

		$final_collection->add_column($fc);
	}

	#Getting the 3 extras so we have 12 numbers
	for (my $i = NUMBER_OF_NUMBERS_IN_CARD
			- NUMBER_OF_COLUMNS_IN_CARD; $i > 0; $i--) {
		my $tc = $temp_collection->get_random_column(1);
		my $n = $tc->get_random_number(1);
		my $label = $tc->{label};

		my $fc = $final_collection->get_column($label);

		$fc->populate($n);
	}
	return $final_collection;
}

sub populate {
	my ($self) = @_;

	HACK:

	my $fcc = $self->_init();

	for (my $row = NUMBER_OF_ROWS_IN_CARD-1; $row >= 0; $row--) {
		my $tcc = Games::Bingo::ColumnCollection->new();

		for (my $i = NUMBER_OF_NUMBERS_IN_ROW; $i > 0; $i--) {

			my $c = $fcc->get_random_column(1);
			my $number = $c->get_highest_number(1);

			if ($c->count_numbers() > 0) {
					$fcc->add_column($c);
			} else {
				#implicitly discarding empty columns
			}
			$self->_insert($row, $number);
		}
		foreach my $column (@${fcc}) {
			$tcc->add_column($column);
		}
		$fcc = $tcc;
	}
	my $amount = scalar $self->get_all_numbers();

	unless ($self->_integrity_check) {

		warn "Incomplete trying again... ($amount)\n";

		#if the integrity check fails, meaning we don not have
		#enough numbers to  print a card we simply try again,
		#please refer to the BUGS file or the B section below.

		$self = $self->_flush;

		goto HACK;
	}
	return $self;
}

sub _flush {
	my $self = shift;

	@{$self} = ();

	return $self;
}

1;

__END__