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 = 0.004;

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__