print complex data structures better

1 files changed, 12 insertions, 0 deletions

diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index de05386..dc1083e 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -66,6 +66,18 @@ sub said {
     }
     return $output;
 }
+around said => sub {
+    my $orig = shift;
+    my $self = shift;
+    my $ret = $self->$orig(@_);
+    if (blessed $ret) {
+        $ret = "$ret";
+    }
+    elsif (ref($ret) && ref($ret) eq 'ARRAY') {
+        $ret = join ', ', @$ret;
+    }
+    return $ret;
+};
 
 sub valid_game {
     my $self = shift;