NAME

Data::Validate::Sanctions::Redis - An extension of Data::Validate::Sanctions::Redis that stores sanction data in redis.

SYNOPSIS ## no critic use Data::Validate::Sanctions::Redis;

    my $validator = Data::Validate::Sanctions::Redis->new(connection => $redis_read);

    # to validate clients by their name
    print 'BAD' if $validator->is_sanctioned("$last_name $first_name");
    # or by more profile data
    print 'BAD' if $validator->get_sanctioned_info(first_name => $first_name, last_name => $last_name, date_of_birth => $date_of_birth)->{matched};

    # to update the sanction dataset (needs redis write access)
    my $validator = Data::Validate::Sanctions::Redis->new(connection => $redis_write); ## no critic
    $validator->update_data(eu_token => $token);

    # create object from the parent (factory) class
    my $validator = Data::Validate::Sanctions->new(storage => 'redis', connection => $redis_write);

DESCRIPTION

Data::Validate::Sanctions::Redis is a simple validitor to validate a name against sanctions lists. For more details about the sanction sources please refer to the parent module Data::Validate::Sanctions.

METHODS

new

Create the object with the redis object:

    my $validator = Data::Validate::Sanctions::Redis->new(connection => $redis);

is_sanctioned

Checks if the input profile info matches a sanctioned entity. The arguments are the same as those of get_sanctioned_info.

It returns 1 if a match is found, otherwise 0.

get_sanctioned_info

Tries to find a match a sanction entry matching the input profile args. It takes arguments in two forms. In the new API, it takes a hashref containing the following named arguments:

• first_name: first name

• last_name: last name

• date_of_birth: (optional) date of birth as a string or epoch

• place_of_birth: (optional) place of birth as a country name or code

• residence: (optional) name or code of the country of residence

• nationality: (optional) name or code of the country of nationality

• citizen: (optional) name or code of the country of citizenship

• postal_code: (optional) postal/zip code

• national_id: (optional) national ID number

• passport_no: (oiptonal) passort number

For backward compatibility it also supports the old API, taking the following args:

• first_name: first name

• last_name: last name

• date_of_birth: (optional) date of birth as a string or epoch

It returns a hash-ref containg the following data:

- matched: 1 if a match was found; 0 otherwise

- list: the source for the matched entry,

- matched_args: a name-value hash-ref of the similar arguments,

- comment: additional comments if necessary,

update_data

Fetches latest versions of sanction lists, and updates corresponding sections of stored file, if needed

last_updated

Returns timestamp of when the latest list was updated. If argument is provided - return timestamp of when that list was updated.

_name_matches

Pass in the client's name and sanctioned individual's name to see if they are similar or not

AUTHOR

Binary.com <fayland@binary.com>

COPYRIGHT

Copyright 2022- Binary.com

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Data::Validate::Sanctions

Data::Validate::Sanctions::Fetcher

cpanm Data::Validate::Sanctions

perl -MCPAN -e shell
install Data::Validate::Sanctions