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

Add in JSON, JSON::XS, and JSON::MaybeXS

Browse source
This commit is contained in:
Ryan Voots 2015-07-14 20:38:38 -04:00
parent 9ed2a8b9aa
commit eed85789ac
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Makefile.PL
View file

@ -59,5 +59,8 @@ requires 'Function::Parameters' => 0;
requires 'Rand::MersenneTwister' => 0; requires 'Rand::MersenneTwister' => 0;
requires 'arybase' => 0; requires 'arybase' => 0;
requires 'Errno' => 0; requires 'Errno' => 0;
requires 'JSON' => 0;
requires 'JSON::XS' => 0;
requires 'JSON::MaybeXS' => 0;
WriteAll; WriteAll;

9
lib/eval.pl
View file

@ -31,6 +31,11 @@ use Rand::MersenneTwister;
require Function::Parameters; require Function::Parameters;
require experimental; require experimental;
require "if.pm"; require "if.pm";
#use JSON;
#use JSON::XS;
require JSON::MaybeXS;
require JSON::XS;
require JSON;
require Moose; require Moose;
require MooseX::Declare; require MooseX::Declare;
@ -61,7 +66,7 @@ no warnings;
# deparse output being much longer than it should be. # deparse output being much longer than it should be.
sub deparse_perl_code { sub deparse_perl_code {
my( $code ) = @_; my( $code ) = @_;
my $sub = eval "no strict; no warnings; no charnames; sub{ $code\n }"; my $sub = eval "no strict; no warnings; no charnames; use $]; sub{ $code\n }";
if( $@ ) { print STDOUT "Error: $@"; return } if( $@ ) { print STDOUT "Error: $@"; return }
my $dp = B::Deparse->new("-p", "-q", "-x7"); my $dp = B::Deparse->new("-p", "-q", "-x7");
@ -270,7 +275,7 @@ use Storable qw/nfreeze/; nfreeze([]); #Preload Nfreeze since it's loaded on dem
local $_; local $_;
$code = "no strict; no warnings; package main; $code"; $code = "no strict; no warnings; package main; use $]; use feature qw/postderef refaliasing lexical_subs postderef_qq signatures/; $code";
my $ret = eval $code; my $ret = eval $code;
local $Data::Dumper::Terse = 1; local $Data::Dumper::Terse = 1;