Yet Another CPAN Grep

Data-Sah-DefaultValue ( P/PE/PERLANCAR/Data-Sah-DefaultValue-0.005.tar.gz, PERLANCAR, 2024; MetaCPAN )

Data-Sah-DefaultValue/lib/Data/Sah/DefaultValueJS.pm ( view source; MetaCPAN )

 {
        require File::Temp;
        require JSON::MaybeXS;
        #require String::ShellQuote;

        my $data = shift;

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

        # code t

$src = "var default_value_code = $code;\n\n".
            "console.log(JSON.stringify(default_value_code(".
                $json->encode($data).")))";

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

file $jsfn: $!";

        my $out = IPC::System::Options::readpipe($nodejs_path, $jsfn);
        $json->decode($out);
    };
}

1;
# ABSTRACT: Generate code to set default value

__END__

=pod

=encod

Data-Sah-DefaultValue ( P/PE/PERLANCAR/Data-Sah-DefaultValue-0.005.tar.gz, PERLANCAR, 2024; MetaCPAN )

Data-Sah-DefaultValue/lib/Data/Sah/Value/js/Str/repeat.pm ( view source; MetaCPAN )

package Data::Sah::Value::js::Str::repeat;

use 5.010001;
use strict;
use warnings;

use JSON::MaybeXS;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-01-17'; # DATE
our $DIST = 'Da

 %cargs = @_;

    my $gen_args = $cargs{args} // {};
    my $res = {};

    $res->{expr_value} = JSON::MaybeXS->new(allow_nonref=>1)->encode($gen_args->{str}) . ".repeat(" . ($gen_args->{n}//1) . ")"