123456789101112131415 use Test::More tests => 2;use Geo::MedianCenter::XS qw/median_center/;use strict;use warnings;my ($lat, $lon) = median_center({ points => [ [ 54.721326, 8.704710 ], [ 49.484678, 8.476724 ], [ 52.129111, 11.634432 ], ]});is int($lat), 52, "lat ok";is int($lon), 10, "lat ok";
use
Test::More
tests
=> 2;
Geo::MedianCenter::XS
qw/median_center/
;
strict;
warnings;
my
(
$lat
,
$lon
) = median_center({
points
=> [
[ 54.721326, 8.704710 ],
[ 49.484678, 8.476724 ],
[ 52.129111, 11.634432 ],
]
});
is
int
), 52,
"lat ok"
), 10,