File Coverage

blib/lib/Catalyst/Plugin/Geography/Implementation.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Catalyst::Plugin::Geography::Implementation;

use strict;
use base qw[Class::Accessor::Fast Class::Data::Inheritable];

use Geography::Countries ();
use IP::Country::Fast;

__PACKAGE__->mk_classdata('lookup');
__PACKAGE__->mk_accessors('context');

__PACKAGE__->lookup( IP::Country::Fast->new );

sub new {
    my $class = shift;
    return bless( { context => shift }, $class );
}

sub code {
    my $self = shift;
    my $host = shift || $self->context->request->address;
    return $self->lookup->inet_atocc($host);
}

sub country {
    my $self = shift;
    my $code = shift || $self->code;

    unless ( $code =~ /^[A-Za-z]+$/ ) {
        $code = $self->code($code);
    }

    return undef unless $code;
    return scalar Geography::Countries::country($code);
}

1;

__END__