add @games to list available games

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index cc412ef..0c19d4b 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -61,6 +61,7 @@ sub said {
     return if $args->{channel} eq 'msg';
     return unless $args->{body} =~ /^$prefix(\w+)(?:\s+(.*))?/;
     my ($game_name, $action) = ($1, $2);
+    return $self->game_list if $game_name eq 'games';
     return unless $self->valid_game($game_name);
 
     my $output;
@@ -125,6 +126,12 @@ sub game_package {
     return 'Bot::Games::Game::' . ucfirst($name);
 }
 
+sub game_list {
+    my $self = shift;
+    return join ' ', map { s/Bot::Games::Game:://; $self->prefix . lc }
+                         $self->games;
+}
+
 sub _format {
     my $self = shift;
     my ($to_print) = @_;