NAME

Locale::Country::OFAC - Module to look up OFAC Sanctioned Countries

SYNOPSIS

    use strict;
    use warnings;
    use Locale::Country;
    use Locale::Country::OFAC qw( get_sanction_by_code );

    my $cuba = country2code('cuba');
    get_sanction_by_code($cuba);

DESCRIPTION

Module to lookup if a country is OFAC Sanctioned. Takes a country code and returns a true value if it is.

METHODS

get_sanction_by_code

my $iran = 'IR';

if (get_sanction_by_code($iran) ) { print "Sorry, can't do business- country is Sanctioned\n"; }

Returns 1 if the country is sanctioned, 0 if not. It also accepts lower case and 3 letter country codes.

AUTHOR

Daniel 'The Man' Culver

THANKS TO

Robert Stone, drzigman@cpan.org

Eris Caffee

HostGator

PerlMonks, http://www.perlmonks.com

COPYRIGHT

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