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.