Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 16:35:40 -04:00
Code Issues Releases Wiki Activity

woo

Browse source
This commit is contained in:
Ryan Voots 2017-05-28 17:10:42 -04:00
parent aab4315a6f
commit bf2ce0d576
3 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
cpanfile
View file

@ -99,3 +99,7 @@ requires 'Types::Standard' => 0;
requires 'Perl::Tidy' => 0; requires 'Perl::Tidy' => 0;
requires 'File::Temp' => 0; requires 'File::Temp' => 0;
requires 'Permute::Named::Iter' => 0; requires 'Permute::Named::Iter' => 0;
requires 'Marpa::R2' => 0;
requires 'Syntax::Keyword::Try' => 0;
requires 'File::Open' => 0;
requires 'App::EvalServerAdvanced' => 0;

0
plugins/eval.pm → plugins/eval.pm.old
View file

10
plugins/supereval.pm
View file

@ -16,14 +16,14 @@ sub new {
my( $class ) = @_; my( $class ) = @_;
my $self = bless {}, $class; my $self = bless {}, $class;
$self->{name} = 'supereval'; $self->{name} = 'eval';
$self->{opts} = { $self->{opts} = {
command => 1, command => 1,
}; };
my @perl_aliases = map {("Xeval$_", "wXeval$_", "sXeval$_", "wsXeval$_", "swXeval$_")} @versions; my @perl_aliases = map {("eval$_", "weval$_", "seval$_", "wseval$_", "sweval$_")} @versions;
$self->{aliases} = [ qw/Xpleval Xperleval Xdeparse/, @perl_aliases ]; $self->{aliases} = [ qw/jseval jeval phpeval pleval perleval deparse k20eval rbeval pyeval luaeval/, @perl_aliases ];
$self->{dbh} = DBI->connect("dbi:SQLite:dbname=var/evallogs.db"); $self->{dbh} = DBI->connect("dbi:SQLite:dbname=var/evallogs.db");
return $self; return $self;
@ -36,7 +36,7 @@ sub command {
my $command = $said->{command_match}; my $command = $said->{command_match};
my $type = $said->{command_match}; my $type = $said->{command_match};
$type =~ s/^\s*(\w+?)?Xeval(.*)?/$1$2/; $type =~ s/^\s*(\w+?)?eval(.*)?/$1$2/;
warn "Initial type: $type\n"; warn "Initial type: $type\n";
my %translations = ( my %translations = (
@ -65,7 +65,7 @@ sub command {
if( not $type ) { $type = 'perl'; } if( not $type ) { $type = 'perl'; }
warn "Found $type: $code"; warn "Found $type: $code";
if ($command =~ /^([ws]+)?Xeval/i) { if ($command =~ /^([ws]+)?eval/i) {
my $c=$1; my $c=$1;
$code = "use warnings; ".$code if ($c =~ /w/); $code = "use warnings; ".$code if ($c =~ /w/);
$code = "use strict; ".$code if ($c =~ /s/); $code = "use strict; ".$code if ($c =~ /s/);