use Getopt::Long;
use Pod::Usage;
-use JSON::Any qw(JSON);
+use JSON::Any;
my $json = JSON::Any->new(allow_barekey => 1, allow_singlequote => 1);
}
pod2usage(1) if ($help);
-$ENV{DBIX_CLASS_STORAGE_DBI_DEBUG} = 1 if ($trace);
+$ENV{DBIC_TRACE} = 1 if ($trace);
die('No op specified') if(!$op);
die('Invalid op') if ($op!~/^insert|update|delete|select$/s);