File Coverage

blib/lib/Data/Sah/Filter/perl/Business/ID/NIK/check_nik.pm

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

package Data::Sah::Filter::perl::Business::ID::NIK::check_nik;

use 5.010001;
use strict;
use warnings;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2024-01-09'; # DATE
our $DIST = 'Sah-Schemas-Business-ID-NIK'; # DIST
our $VERSION = '0.003'; # VERSION

sub meta {
    +{
        v => 1,
        summary => 'Check that string is a valid NIK',
        might_fail => 1,
    };
}

sub filter {
    my %args = @_;

    my $dt = $args{data_term};

    my $res = {};

    $res->{modules}{"Business::ID::NIK"} //= 0;

    $res->{expr_filter} = join(
        "",
        "do { my \$tmp = $dt; my \$res = Business::ID::NIK::parse_nik(nik => \$tmp); \$res->[0] == 200 ? [undef,\$tmp] : [\$res->[1], \$tmp] }",
    );

    $res;
}

1;
# ABSTRACT:

__END__