NAME
Geo::Location::Point - Location information
VERSION
Version 0.06
SYNOPSIS
Geo::Location::Point stores a place.
use Geo::Location::Point;
my $location = Geo::Location::Point->new();
SUBROUTINES/METHODS
new
$location = Geo::Location::Point->new();
lat
print 'Latitude: ', $location->lat(), "\n";
print 'Longitude: ', $location->long(), "\n";
long
print 'Latitude: ', $location->lat(), "\n";
print 'Longitude: ', $location->long(), "\n";
distance
Determine the distance between two locations, returns a Class::Measure::Length object.
equal
Are two points the same?
my $loc1 = location->new(lat => 2, long => 2);
my $loc2 = location->new(lat => 2, long => 2);
print ($loc1 == $loc2), "\n"; # Prints 1
not_equal
Are two points different same?
my $loc1 = location->new(lat => 2, long => 2);
my $loc2 = location->new(lat => 2, long => 2);
print ($loc1 != $loc2), "\n"; # Prints 0
as_string
Prints the object in human-readable format.
attr
Get/set location attributes, e.g. city
$location->city('London');
$location->country('UK');
print $location->as_string(), "\n";
print "$location\n"; # Calls as_string
AUTHOR
Nigel Horne njh@bandsman.co.uk
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
BUGS
SEE ALSO
LICENSE AND COPYRIGHT
Copyright 2019-2020 Nigel Horne.
The program code is released under the following licence: GPL2 for personal use on a single computer. All other users (including Commercial, Charity, Educational, Government) must apply in writing for a licence for use from Nigel Horne at `<njh at nigelhorne.com>`.