Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-09 12:05:42 -04:00
Code Issues Releases Wiki Activity

added Time::Piece

Browse source
This commit is contained in:
Ryan Voots 2012-09-17 02:39:42 -04:00
parent af4cd7d65b
commit c686615bf1
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/eval.pl
View file

@ -22,6 +22,7 @@ use Digest::SHA;
use DateTime;
use DateTimeX::Easy;
use Date::Parse;
use Time::Piece;
require Moose;
require MooseX::Declare;
@ -50,7 +51,7 @@ no warnings;
print $ret;
}
use utf8; eval "\$\343\201\257 = 42"; # attempt to automatically load the utf8 libraries.
use utf8; eval "\$\343\201\257 = 42; 'ש' =~ /([\p{Bidi_Class:L}\p{Bidi_Class:R}])/"; # attempt to automatically load the utf8 libraries.
use charnames qw(:full);
use PerlIO;
use PerlIO::scalar;
@ -263,9 +264,14 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
# $js->eval("Envjs.$_=function(x){}");
# }
$js->eval($JSENV_CODE) or die $@;
# $js->eval($JSENV_CODE) or die $@;
my $out = eval { $js->eval($code) };
$code =~ s/(["\\])/\\$1/g;
my $rcode = qq{write(eval("$code"))};
my $out = eval { $js->eval($rcode) };
if( $@ ) { print "ERROR: $@"; }
else { print encode_json $out }