File Coverage

blib/lib/Games/Bingo.pm

Criterion	Covered	Total	%
statement	74	74	100.0
branch	8	8	100.0
condition	2	2	100.0
subroutine	15	15	100.0
pod	8	8	100.0
total	107	107	100.0

package Games::Bingo;

use strict;
use warnings;
use integer;
use POSIX qw(floor);
use vars qw($VERSION);
use Games::Bingo::Constants qw(NUMBER_OF_NUMBERS);

$VERSION = '0.17';

sub new {
	my $class = shift;
	my $ceiling = shift || NUMBER_OF_NUMBERS;

	my $self = bless {
		_numbers => [],
		_pulled  => [[],[],[],[],[],[],[],[],[],],
		game     => 1,
	}, $class;

	my @ary;
	$self->init(\@ary, $ceiling);
	push @{$self->{'_numbers'}}, @ary;

	return $self;
}

sub init {
	my ($self, $numbers, $ceiling) = @_;

	for(my $i = 1; $i < ($ceiling + 1); $i++) {
		push @{$numbers}, $i;
	}

	return 1;
}

sub play {
	my ($self, $numbers) = @_;

	my $number;
	if ($numbers) {
		my $index = $self->random(scalar @{$numbers});
		$number = $numbers->[$index];
		splice(@{$numbers},  $index, 1);
	} else {
		my $index = $self->random(scalar @{$self->{'_numbers'}});
		$number = $self->{'_numbers'}->[$index];
		splice(@{$self->{'_numbers'}},  $index, 1);
	}
	$self->pull($number);

	return $number;
}

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

	my $found = 0;
	foreach my $n ($self->_all_pulled()) {
		if ($n == $number) {
			$found++;
			last;
		};
	}

	if ($found) {
		return 1;
	} else {
		return 0;
	}
}

sub _all_pulled {
	my $self = shift;

	my @pulled = ();
	foreach my $row (@{$self->{'_pulled'}}) {
		foreach my $number (@{$row}) {
			push(@pulled, $number) if $number;
		}
	}

	return @pulled;
}

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

	return $self->take($self->{'_pulled'}, $number);
}

sub take {
	my ($self, $taken, $take) = @_;

    my ($x, $y, $take_modified) = $self->splitnumber($take);

    return $taken->[$x][$y] = $take_modified;
}

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

	return POSIX::floor(rand($number));
}

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

	my $modified = sprintf("%02d", $number);
    my ($x, $y) = $modified =~ m/^(\d{1})(\d{1})$/o;

	return ($x, $y, $modified);
}

1;

__END__