Yet Another CPAN Grep

Language-Expr ( P/PE/PERLANCAR/Language-Expr-0.29.tar.gz, PERLANCAR, 2016; MetaCPAN )

Language-Expr/lib/Language/Expr/JS.pm ( view source; MetaCPAN )

shift;
    $str =~ s!^!// !g;
    $str;
}

sub eval_expr_js {
    require File::Temp;
    require JSON::MaybeXS;
    require Language::Expr::Compiler::js;
    require Nodejs::Util;

    my ($expr, $op

@_;
    $opts //= {};

    state $default_jsc = Language::Expr::Compiler::js->new;

    state $json = JSON::MaybeXS->new->allow_nonref;

    my $jsc = $opts->{js_compiler} // $default_jsc;

    # code

lare vars\n") . join("", map { "let $_ = ".$json->encode($opts->{vars}{$_}).";\n" } sort keys %{$opts->{vars}})
             : ""),
        "console.log(JSON.stringify(",
        $jsc->compile($expr),

Language-Expr ( P/PE/PERLANCAR/Language-Expr-0.29.tar.gz, PERLANCAR, 2016; MetaCPAN )

Language-Expr/lib/Language/Expr/Compiler/js.pm ( view source; MetaCPAN )

ported since JavaScript 1.6], 'let' lexical variables
[supported since JavaScript 1.7] and native JSON [supported since JavaScript
1.8.1]).

To test emitted JavaScript code, we use Node.js.

=item * J