File Coverage

blib/lib/Mail/Exim/ACL/Geolocation.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	28	28	100.0

package Mail::Exim::ACL::Geolocation;

# SPDX-License-Identifier: Artistic-1.0-Perl OR GPL-1.0-or-later

use 5.016;
use warnings;
use utf8;

our $VERSION = 1.004;

use Exporter qw(import);
use IP::Geolocation::MMDB;
use List::Util qw(first);

our @EXPORT_OK = qw(country_code);

our @DIRECTORIES = qw(
    /var/lib/GeoIP
    /usr/local/share/GeoIP
    /usr/share/GeoIP
    /opt/share/GeoIP
);

our @DATABASES = qw(
    GeoIP2-Country.mmdb
    GeoIP2-City.mmdb
    dbip-country.mmdb
    dbip-city.mmdb
    dbip-location.mmdb
    GeoLite2-Country.mmdb
    GeoLite2-City.mmdb
    dbip-country-lite.mmdb
    dbip-city-lite.mmdb
);

our $DATABASE = $ENV{IP_GEOLOCATION_MMDB} || first {-r} map {
    my $dir = $_;
    map {"$dir/$_"} @DATABASES
} @DIRECTORIES;

our $MMDB = eval { IP::Geolocation::MMDB->new(file => $DATABASE) };

sub country_code {
    my $ip_address = shift;

    return eval { $MMDB->getcc($ip_address) };
}

1;
__END__