maps/perl/eval.ext

#! 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
}
Revision:	1.1
Committed:	Fri Mar 31 20:21:19 2006 UTC (18 years, 1 month ago) by root
Branch:	MAIN
Log Message:	add first implementation of a generic eval plug-in
#	Content
1	#! perl
2
3	# generic perl code evaluator
4
5	# currently say only
6	sub on_say {
7	my ($event) = @_;
8	my ($event, $ob, $msg, $options) = @$event{qw(event who message options)};
9
10	local $_ = $msg;
11	eval $event->message
12	}