From eed85789ac89e5a6cf991d0d45fc8b03dc9dcda0 Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Tue, 14 Jul 2015 20:38:38 -0400
Subject: [PATCH] Add in JSON, JSON::XS, and JSON::MaybeXS

---
 Makefile.PL | 3 +++
 lib/eval.pl | 9 +++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index e7cffe7..917b5c0 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -59,5 +59,8 @@ requires 'Function::Parameters' => 0;
 requires 'Rand::MersenneTwister' => 0;
 requires 'arybase' => 0;
 requires 'Errno' => 0;
+requires 'JSON' => 0;
+requires 'JSON::XS' => 0;
+requires 'JSON::MaybeXS' => 0;
 
 WriteAll;
diff --git a/lib/eval.pl b/lib/eval.pl
index d83f090..1f23bac 100755
--- a/lib/eval.pl
+++ b/lib/eval.pl
@@ -31,6 +31,11 @@ use Rand::MersenneTwister;
 require Function::Parameters;
 require experimental;
 require "if.pm";
+#use JSON;
+#use JSON::XS;
+require JSON::MaybeXS;
+require JSON::XS;
+require JSON;
 
 require Moose;
 require MooseX::Declare;
@@ -61,7 +66,7 @@ no warnings;
 # deparse output being much longer than it should be.
 	sub deparse_perl_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 }
 
 		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 $_;
 
-		$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;
 
 		local $Data::Dumper::Terse = 1;