use strict;
use warnings;
use Test::More tests => 1;
use Geo::Coordinates::Converter;

my $geo = Geo::Coordinates::Converter->new(
    formats => [qw/iArea/],
    lat     => '35.645168',
    lng     => '139.723348',
    datum   => 'wgs84'
);
my $point = $geo->convert('degree', 'iarea');
is $point->areacode, '05905';