File Coverage

blib/lib/Mojolicious/Plugin/Geolocation/MMDB.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	4	6	66.6
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	31	33	93.9

package Mojolicious::Plugin::Geolocation::MMDB;
use Mojo::Base 'Mojolicious::Plugin';

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

our $VERSION = 1.000;

use Carp qw(croak);
use IP::Geolocation::MMDB;

sub register {
    my ($self, $app, $conf) = @_;

    my $file = $conf->{file} or croak q{The "file" parameter is mandatory};

    my $mmdb = IP::Geolocation::MMDB->new(file => $file);

    $app->helper(
        geolocation => sub {
            my ($c, $ip_address) = @_;

            if (!defined $ip_address) {
                $ip_address = $c->tx->remote_address;
            }

            my $data;
            if ($ip_address) {
                $data = $mmdb->record_for_address($ip_address);
            }

            return $data;
        }
    );

    return;
}

1;
__END__