make turn use augment/inner so that the after modifier in the base class works

3 files changed, 4 insertions, 4 deletions

diff --git a/lib/Bot/Games/Game.pm b/lib/Bot/Games/Game.pm
index ec82bd7..e0f4a2d 100644
--- a/lib/Bot/Games/Game.pm
+++ b/lib/Bot/Games/Game.pm
@@ -44,7 +44,7 @@ has is_over => (
     command    => 1,
 );
 
-sub turn { "Games must provide a turn method" }
+sub turn { inner() || "Games must provide a turn method" }
 after turn => sub { shift->last_turn_time(DateTime->now) };
 
 __PACKAGE__->meta->make_immutable;
diff --git a/lib/Bot/Games/Game/24.pm b/lib/Bot/Games/Game/24.pm
index cbe0edc..63221f3 100644
--- a/lib/Bot/Games/Game/24.pm
+++ b/lib/Bot/Games/Game/24.pm
@@ -23,7 +23,7 @@ sub init {
     return $self->generate_24;
 }
 
-sub turn {
+augment turn => sub {
     my $self = shift;
     my ($player, $expr) = @_;
 
diff --git a/lib/Bot/Games/Game/Ghostlike.pm b/lib/Bot/Games/Game/Ghostlike.pm
index 2505ddf..35d0101 100644
--- a/lib/Bot/Games/Game/Ghostlike.pm
+++ b/lib/Bot/Games/Game/Ghostlike.pm
@@ -51,7 +51,7 @@ around state => sub {
     return $self->$orig($state);
 };
 
-sub turn {
+augment turn => sub {
     my $self = shift;
     my ($player, $state) = @_;
 
@@ -71,7 +71,7 @@ sub turn {
 
     $self->current_player($self->next_player);
     return $self->state($state);
-}
+};
 
 command challenge => sub {
     my $self = shift;