File Coverage

blib/lib/Game/Cribbage/Deck/Card.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	2	2	100.0
condition	7	9	77.7
subroutine	11	11	100.0
pod	5	6	83.3
total	54	57	94.7

package Game::Cribbage::Deck::Card;

use strict;
use warnings;

use Object::Proto::Sugar;

our (%card_to_value_map, %card_run_to_value_map, %card_suit_to_symbol);
BEGIN {
	%card_to_value_map = (
		A => 1,
		(map {$_ => 10} qw/J Q K/),
	);
	%card_run_to_value_map = (
		A => 1,
		J => 11,
		Q => 12,
		K => 13
	);
	%card_suit_to_symbol = (
		H => '♥️',
		S => '♠️',
		D => '♦️',
		C => '♣️'
	);
}

has [qw/id used/] => (
	is => 'rw',
	default => sub { 0 }
);

has [qw/suit symbol/] => (
	is => 'ro'
);

sub value {
	my ($self) = @_;
	return $card_to_value_map{$self->symbol} || $self->symbol;
}

sub run_value {
	my ($self) = @_;
	return $card_run_to_value_map{$self->symbol} || $self->symbol;
}

sub suit_symbol {
	my ($self) = @_;
	return $card_suit_to_symbol{$self->suit};
}

sub ui_stringify {
	my ($self) = @_;
	return sprintf "%s %s", $card_suit_to_symbol{$self->suit}, $self->symbol;
}

sub stringify {
	my ($self) = @_;
	return sprintf "%s%s", $self->symbol, $card_suit_to_symbol{$self->suit};
}

sub match {
	my ($self, $card) = @_;
	my $sym = $card->symbol;
	if ($self->suit eq $card->suit && $self->symbol =~ m/^($sym)$/) {
		return 1;
	}
	return 0;
}

1;

__END__