parse out prefix from the constructor parameters

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/Bot/Games.pm b/lib/Bot/Games.pm
index 2810506..843f2d4 100644
--- a/lib/Bot/Games.pm
+++ b/lib/Bot/Games.pm
@@ -22,6 +22,16 @@ has active_games => (
     default => sub { {} },
 );
 
+around new => sub {
+    my $orig = shift;
+    my $class = shift;
+    my %args = @_;
+    my $prefix = delete $args{prefix};
+    my $self = $class->$orig(%args);
+    $self->prefix($prefix) if $prefix;
+    return $self;
+};
+
 sub said {
     my $self = shift;
     my ($args) = @_;