File Coverage

blib/lib/Games/Bingo/Column.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	6	6	100.0
condition			n/a
subroutine	12	12	100.0
pod	6	6	100.0
total	68	68	100.0

package Games::Bingo::Column;

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

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

sub new {
	my $class = shift;
	my $label = shift;
	my @array = sort _reverse (@_);

	my $self = bless {
		label  => $label?$label:0,
		_array  => \@array
	}, $class;
}

sub _reverse { $b <=> $a }

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

	push @{$self->{_array}}, $value;

	@{$self->{_array}} = sort _reverse @{$self->{_array}};
}

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

	my $pos = $self->random($self->count_numbers);

	my $number = $self->{_array}->[$pos];
	splice(@{$self->{_array}}, $pos, 1) if $do_splice;

	return $number;
}

sub count_numbers {
	my $self = shift;

	return scalar @{$self->{_array}};
}

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

	my $number;
	if ($do_splice) {
		$number = shift(@{$self->{_array}});
		return $number;
	} else {
		return $self->{_array}->[0];
	}
}

sub get_label {
	my $self = shift;

	return $self->{label};
}

1;

__END__