format more methods as bools

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/Bot/Games/Game/Ghost.pm b/lib/Bot/Games/Game/Ghost.pm
index f9b3552..3912f52 100644
--- a/lib/Bot/Games/Game/Ghost.pm
+++ b/lib/Bot/Games/Game/Ghost.pm
@@ -27,7 +27,7 @@ has challenger => (
     predicate  => 'has_challenger',
     command    => 1,
 );
-command 'has_challenger';
+command 'has_challenger', formatter => __PACKAGE__->meta->formatter_for('Bool');
 
 has wordlist => (
     is         => 'ro',
@@ -127,14 +127,14 @@ command valid_move => sub {
     my $self = shift;
     my ($move) = @_;
     return uc(substr($move, 0, -1)) eq $self->state;
-};
+}, formatter => __PACKAGE__->meta->formatter_for('Bool');
 
 command valid_word_from_state => sub {
     my $self = shift;
     my ($word) = @_;
     my $word_prefix = substr($word, 0, length($self->state));
     return uc($word_prefix) eq $self->state;
-};
+}, formatter => __PACKAGE__->meta->formatter_for('Bool');
 
 sub current_player_index {
     my $self = shift;