diff options
Diffstat (limited to 'lib/Bot/Games/Game/Superghost.pm')
-rw-r--r-- | lib/Bot/Games/Game/Superghost.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/Bot/Games/Game/Superghost.pm b/lib/Bot/Games/Game/Superghost.pm new file mode 100644 index 0000000..13502ed --- /dev/null +++ b/lib/Bot/Games/Game/Superghost.pm @@ -0,0 +1,17 @@ +#!/usr/bin/perl +package Bot::Games::Game::Superghost; +use Moose; +extends 'Bot::Games::Game::Ghostlike'; + +has '+help' => ( + default => "superghost help", +); + +sub valid_move { + my $self = shift; + my ($move) = @_; + return uc(substr($move, 0, -1)) eq $self->state + || uc(substr($move, 1)) eq $self->state; +} + +1; |