diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-06-01 02:10:39 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-06-01 02:10:39 -0500 |
commit | 5d697170e22d75928a361e1c7b1d007632de29c1 (patch) | |
tree | 052505907344ae583b05860201ff6ad9deb6caf2 /lib/Bot/Games/Game/Superghost.pm | |
parent | 017f677e7047eaf607c49d7a496ce252def15ba9 (diff) | |
download | bot-games-5d697170e22d75928a361e1c7b1d007632de29c1.tar.gz bot-games-5d697170e22d75928a361e1c7b1d007632de29c1.zip |
format more methods as bools
Diffstat (limited to 'lib/Bot/Games/Game/Superghost.pm')
-rw-r--r-- | lib/Bot/Games/Game/Superghost.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Bot/Games/Game/Superghost.pm b/lib/Bot/Games/Game/Superghost.pm index 7164ca2..60a58c4 100644 --- a/lib/Bot/Games/Game/Superghost.pm +++ b/lib/Bot/Games/Game/Superghost.pm @@ -11,14 +11,14 @@ command valid_move => sub { my ($move) = @_; return uc(substr($move, 0, -1)) eq $self->state || uc(substr($move, 1)) eq $self->state; -}; +}, formatter => __PACKAGE__->meta->formatter_for('Bool'); command valid_word_from_state => sub { my $self = shift; my ($word) = @_; my $state = $self->state; return uc($word) =~ /\Q$state\E/; -}; +}, formatter => __PACKAGE__->meta->formatter_for('Bool'); __PACKAGE__->meta->make_immutable; no Bot::Games::OO::Game; |