diff options
| -rw-r--r-- | Plugin/Random.pm (renamed from Plugin/Shuffle.pm) | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/Plugin/Shuffle.pm b/Plugin/Random.pm index dc39898..bd1c4d2 100644 --- a/Plugin/Shuffle.pm +++ b/Plugin/Random.pm @@ -1,4 +1,4 @@ -package Plugin::Shuffle; +package Plugin::Random; use strict; use warnings; @@ -14,6 +14,7 @@ sub configure { %config = %$cref; $cmdref->("shuffle", sub { $self->shuffle(@_); } ); + $cmdref->("choose", sub { $self->choose(@_); } ); return $self; } @@ -23,4 +24,9 @@ sub shuffle { return join " ", List::Util::shuffle(@arguments); } + +sub choose { + my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_; + return (List::Util::shuffle(@arguments))[0]; +} 1; |