File Coverage

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

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	2	2	100.0
total	34	35	97.1

#! /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.

# Make Dist::Zilla happy.
# ABSTRACT: Read chess opening books in polyglot format

package Chess::Opening::Book::ECO;
$Chess::Opening::Book::ECO::VERSION = '0.6';
use common::sense;

use Fcntl qw(:seek);

use Chess::Opening::ECO::Entry;

use base 'Chess::Opening::Book';

sub new {
	my $self = '';

	require Chess::Opening::ECO;

	bless \$self, shift;
}

sub lookupFEN {
	my ($self, $fen) = @_;

	my $positions = Chess::Opening::ECO->positions;

	# Ignore en passant field, half move count and move number for lookup so
	# that transpositions work correctly.
	$fen =~ s/[ \011-\015]+[-a-h1-8]+[ \011-\015]+[0-9]+[ \011-\015]+[0-9]+[ \011-\015]*$//;

	return if !exists $positions->{$fen};

	my $position = $positions->{$fen};
	my $entry = Chess::Opening::ECO::Entry->new(
		$fen,
		length => $position->{length},
		significant => $position->{significant},
		history => $position->{history},
		eco => $position->{eco},
		variation => $position->{variation});

	foreach my $move (keys %{$position->{moves}}) {
		$entry->addMove(move => $move);
	}

	return $entry;
}

1;