NAME

    Data::Validate::Sanctions - Validate a name against sanctions lists

SYNOPSIS

        # as exported function
        use Data::Validate::Sanctions qw/is_sanctioned/;
    
        print 'BAD' if is_sanctioned($first_name, $last_name);
    
        # as OO
        use Data::Validate::Sanctions;
    
        my $validator = Data::Validate::Sanctions->new;
        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.

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.

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.

SEE ALSO

    Data::OFAC