<<q=~q>>;

Perl Eval
by b0at
11 June 2005

There's no need to edit this script to use it.
Do something like /Perl Xchat::print("foo");

A nice touch is to add a user command  named 
"eval" with the value "Perl &2".

q

use strict;
use warnings;
use Data::Dumper; # just because it's core

Xchat::register(
	my $NAME    = 'Perl Eval', 
	my $VERSION = '001', 
	'Evaluate code with /Perl'
);
Xchat::print("\cB$NAME v$VERSION\cB by b0at (use /Perl)");

Xchat::hook_command(
	'Perl' 
,	\&perleval
,	{ help_text => my $USAGE = 'Usage: /Perl <code>' }
);

sub perleval {
	my ($word, $eol) = @_;
	
	if( $eol->[1] ) {
		Xchat::print( Dumper( eval $eol->[1] ) );
		Xchat::print( "\cBError\cB\t $@" ) if $@;
		# Xchat::print(' '); # extra line for readability
	} else {
		Xchat::print( $USAGE );
	}
	
	return Xchat::EAT_XCHAT;
}