The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl

use 5.006;
use strict; use warnings;
use Games::Domino;
use Test::More tests => 3;

ok(Games::Domino->new);

eval { Games::Domino->new({ cheat => 2 }); };
like($@, qr/Only 0 or 1 allowed/);

eval { Games::Domino->new({ debug => 2 }); };
like($@, qr/Only 0 or 1 allowed/);

done_testing();