NAME
Data::Validate::Sanctions - Validate a name against sanctions lists
SYNOPSIS
# as exported function
use Data::Validate::Sanctions qw/is_sanctioned get_sanction_file set_sanction_file/;
set_sanction_file('/var/storage/sanction.csv');
my ($first_name, $last_name) = ("First", "Last Name");
print 'BAD' if is_sanctioned($first_name, $last_name);
# as OO
use Data::Validate::Sanctions;
#You can also set sanction_file in the new method.
my $validator = Data::Validate::Sanctions->new(sanction_file => '/var/storage/sanction.csv');
print 'BAD' if $validator->is_sanctioned("$last_name $first_name");DESCRIPTION
Data::Validate::Sanctions is a simple validitor to validate a name against sanctions lists.
The list is from https://www.treasury.gov/ofac/downloads/sdn.csv, https://www.treasury.gov/ofac/downloads/consolidated/cons_prim.csv
run update_sanctions_csv to update the bundled csv.
The path of list can be set by function "set_sanction_file" or by method "new". If not set, then environment variable $ENV{SANCTION_FILE} will be checked, at last the default file in this package will be used.
METHODS
is_sanctioned
is_sanctioned($last_name, $first_name);
is_sanctioned($first_name, $last_name);
is_sanctioned("$last_name $first_name");when one string is passed, please be sure last_name is before first_name.
or you can pass first_name, last_name (last_name, first_name), we'll check both "$last_name $first_name" and "$first_name $last_name".
return 1 for yes, 0 for no.
it will remove all non-alpha chars and compare with the list we have.
new
Create the object, and set sanction_file
my $validator = Data::Validate::Sanctions->new(sanction_file => '/var/storage/sanction.csv');get_sanction_file
get sanction_file which is used by "is_sanctioned" (procedure-oriented)
set_sanction_file
set sanction_file which is used by "is_sanctioned" (procedure-oriented)
AUTHOR
Binary.com <fayland@binary.com>
COPYRIGHT
Copyright 2014- Binary.com
LICENSE
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.