File Coverage

blib/lib/Data/Sah/Filter/perl/Str/replace_map.pm

Criterion	Covered	Total	%
statement	11	18	61.1
branch			n/a
condition	0	2	0.0
subroutine	4	6	66.6
pod	0	2	0.0
total	15	28	53.5

package Data::Sah::Filter::perl::Str::replace_map;

use 5.010001;
use strict;
use warnings;

use Data::Dmp;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-07-17'; # DATE
our $DIST = 'Data-Sah-Filter'; # DIST
our $VERSION = '0.025'; # VERSION

sub meta {
    +{
        v => 1,
        summary => 'Replace (map) some values with (to) other values',
        args => {
            map => {
                schema => 'hash*',
                req => 1,
            },
        },
        examples => [
            {value=>"foo", filter_args=>{map=>{foo=>"bar", baz=>"qux"}}, filtered_value=>"bar"},
            {value=>"bar", filter_args=>{map=>{foo=>"bar", baz=>"qux"}}},
        ],
    };
}

sub filter {
    my %fargs = @_;

    my $dt = $fargs{data_term};
    my $gen_args = $fargs{args} // {};

    my $res = {};
    $res->{expr_filter} = join(
        "",
        "do {",
        "    my \$tmp = $dt; ",
        "    my \$map = ".dmp($gen_args->{map})."; ",
        "    defined \$map->{\$tmp} ? \$map->{\$tmp} : \$tmp; ",
        "}",
    );

    $res;
}

1;
# ABSTRACT: Replace (map) some values with (to) other values

__END__