File Coverage

blib/lib/Chess/Opening/Book/Entry.pm

Criterion	Covered	Total	%
statement	24	30	80.0
branch	4	8	50.0
condition	3	6	50.0
subroutine	9	9	100.0
pod	6	6	100.0
total	46	59	77.9

#! /bin/false

# Copyright (C) 2019 Guido Flohr ,
# all rights reserved.

# This program is free software. It comes without any warranty, to
# the extent permitted by applicable law. You can redistribute it
# and/or modify it under the terms of the Do What the Fuck You Want
# to Public License, Version 2, as published by Sam Hocevar. See
# http://www.wtfpl.net/ for more details.

package Chess::Opening::Book::Entry;
$Chess::Opening::Book::Entry::VERSION = '0.3';
use common::sense;

use Locale::TextDomain 'com.cantanea.Chess-Opening';

use Chess::Opening::Book::Move;

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

	bless {
		__fen => $fen,
		__moves => {},
		__count => 0,
	}, $class;
}

sub addMove {
	my ($self, %args) = @_;

	if (!exists $args{move}) {
		require Carp;
		Carp::croak(__x("the named argument '{arg}' is required",
		                arg => 'move'));
	}
	if ($args{move} !~ /^[a-h][1-8][a-h][1-8][qrbn]?$/) {
		require Carp;
		Carp::croak(__x("invalid move '{move}'",
		                move => '$args{move}'));
	}
	$args{count} = $args{weight} if exists $args{weight};
	if (exists $args{count} && $args{count}
	    && $args{count} !~ /^[1-9][0-9]*$/) {
		require Carp;
		Carp::croak(__"count must be a positive integer");
	}

	my $move = Chess::Opening::Book::Move->new(%args);
	$self->{__moves}->{$args{move}} = $move;
	$self->{__counts} += $move->count;

	return $self;
}

sub fen { shift->{__fen} }
sub moves { shift->{__moves} }
sub counts { shift->{__counts} }
sub weights { shift->{__counts} }

1;