#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd pp /;
use JSON qw/ to_json from_json /;
my $str = q{["listliteral",["ListLiteral",["../classSPL_1_1Operator_1_1Instance_1_1ExpressionTree_1_1ListLiteral.html",1,"SPL::Operator::Instance::ExpressionTree"]]]};
dd( from_json( $str ) );
__END__
[
  "listliteral",
  [
    "ListLiteral",
    [
      "../classSPL_1_1Operator_1_1Instance_1_1ExpressionTree_1_1ListLiteral.html",
      1,
      "SPL::Operator::Instance::ExpressionTree",
    ],
  ],
]

##</code><code>##

#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd pp /;
use Safe;
my $str = q{["listliteral",["ListLiteral",["../classSPL_1_1Operator_1_1Instance_1_1ExpressionTree_1_1ListLiteral.html",1,"SPL::Operator::Instance::ExpressionTree"]]]};
dd( Safe->new->reval( $str ) );
__END__
[
  "listliteral",
  [
    "ListLiteral",
    [
      "../classSPL_1_1Operator_1_1Instance_1_1ExpressionTree_1_1ListLiteral.html",
      1,
      "SPL::Operator::Instance::ExpressionTree",
    ],
  ],
]