The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use Algorithm::Metric::Chessboard::Wormhole;
use Test::More tests => 1;

my $wormhole =
    Algorithm::Metric::Chessboard::Wormhole->new(
                                                  x => 5,
                                                  y => 30,
                                                  id => "Warp Gate",
                                                );
isa_ok( $wormhole, "Algorithm::Metric::Chessboard::Wormhole" );