#!/usr/bin/perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/../lib";

use Games::Checkers::Game;

my $board = Games::Checkers::Board->new($ENV{BOARD}, $ENV{BOARD_SIZE});
my $game = Games::Checkers::Game->new(
	board => $board,
	title => "Score: " . $board->get_score($ENV{BLACK} || 0),
);

$game->show_board;
$game->hold;
