File Coverage

blib/lib/Data/Sah/Value/js/Str/repeat.pm

Criterion	Covered	Total	%
statement	11	17	64.7
branch			n/a
condition	0	4	0.0
subroutine	4	6	66.6
pod	0	2	0.0
total	15	29	51.7

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 = 'Data-Sah-DefaultValue'; # DIST
our $VERSION = '0.005'; # VERSION

sub meta {
    +{
        v => 1,
        summary => 'Repeat a string a number of times',
        prio => 50,
        args => {
            str => {schema=>'str*', req=>1},
            n => {schema=>'uint*', default=>1},
        },
    };
}

sub value {
    my %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) . ")";

    $res;
}

1;
# ABSTRACT:

__END__