Yet Another CPAN Grep

Data-Sah-Coerce ( P/PE/PERLANCAR/Data-Sah-Coerce-0.054.tar.gz, PERLANCAR, 2023; MetaCPAN )

Data-Sah-Coerce/lib/Data/Sah/CoerceJS.pm ( view source; MetaCPAN )

rgs: %s): %s", \%args, $code);
    }

    return $code if $args{source};

    require JSON;
    state $json = JSON->new->allow_nonref;

    my $engine = $args{engine} // 'quickjs';

    if ($engine eq

::QuickJS;

            my $data = shift;

            my $src = "var coercer = $code; coercer(".$json->encode($data).")";
            JavaScript::QuickJS->new->eval($src);
        };

    } elsif ($e


            my $src = "var coercer = $code; ".
                "console.log(JSON.stringify(coercer(".
                $json->encode($data).")))";

            my ($jsh, $jsfn) = File::Temp::tempfile(