package Bot::BasicBot::Pluggable::Module::MyModuleName;
use warnings;
use strict;
use base qw(Bot::BasicBot::Pluggable::Module);

sub init {
    my $self = shift;
    $self->config(
        {
            fruit_order     => ["apple","lemon"],
            is_weekend      => 0
        }
    );
}

sub admin {
   my ($self, $msg) = @_;
   my $who = $msg->{who};
   my $body = $msg->{body}; 
   
   if ( $body =~ /^!setorder\s*$/ ) {
     my @order = ["orange","pea"];
     $self->set('fruit_order'=>\@order);
     return "order set";
   }

   if ( $body =~ /^!getorder\s*$/ ) {
     my @order = @{ $self->get('fruit_order') || [] };
     return @order;
   }
}
1;