File Coverage

blib/lib/Data/Sah/Filter/perl/Array/uniqstr.pm

Criterion	Covered	Total	%
statement	8	15	53.3
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	11	22	50.0

package Data::Sah::Filter::perl::Array::uniqstr;

use 5.010001;
use strict;
use warnings;

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 => 'Make an array uniq using List::Util\'s uniqstr() (synonym for uniq)',
        target_type => 'array',
        args => {
        },
        examples => [
            {value=>[]},
            {value=>["a","b"]},
            {value=>["a","b","a","a","c","b"], filtered_value=>["a","b","c"]},
        ],
    };
}

sub filter {
    my %fargs = @_;

    my $dt = $fargs{data_term};
    my $res = {};
    $res->{modules}{'List::Util'} = 1.54;
    $res->{expr_filter} = join(
        "",
        "[List::Util::uniqstr(\@{ $dt })]",
    );

    $res;
}

1;
# ABSTRACT: Make an array uniq using List::Util's uniqstr() (synonym for uniq)

__END__