#! perl

# generic perl code evaluator

# currently say only
sub on_say {
   my ($event) = @_;
   my ($event, $ob, $msg, $options) = @$event{qw(event who message options)};

   local $_ = $msg;
   eval $event->message
}