NAME
GPS::Point - Provides an object interface for a GPS point.
SYNOPSIS
use GPS::Point;
$obj=GPS::Point->new(
lat=>$lat, #signed degrees
lon=>$lon, #signed degrees
alt=>$hae, #meters above the WGS-84 ellipsoid
speed=>$speed, #meters/second (over ground)
heading=>$heading, #degrees clockwise from North
time=>$time, #float seconds of the unix epoch
etime=>$etime, #float seconds
ehorizontal=>$ehz, #float meters
evertical=$evert, #float meters
climb=>$climb, #meters/second
eheading=>$ehead, #degrees
espeed=>$espeed, #meters/second
eclimb=>$eclimb, #meters/second
mode=>$mode, #[Unknown=>undef(),None=>1,2D=>2,3D=>3]
tag=>$tag, #Name of the GPS message for data
);
print $point->latlon. "\n"; #use a "." here to force latlon to a scalar
my ($x,$y,$z)=$point->ecef; #if Geo::ECEF is available
my $GeoPoint=$point->GeoPoint; #if Geo::Point is available
my $obj=GPS::Point->newGPSD($O_Command_Return);DESCRIPTION
This is a re-write of Net::GPSD::Point this is more portable. GPS::Point - Provides an object interface for a GPS fix (e.g. Position, Velocity and Time). (Note: Please use Geo::Point, if you want 2D or projection supportonly.)
USAGE
CONSTRUCTOR
new
my $obj = STOP::Device::BluTag->new();METHODS
lat
Sets of returns lat
print $obj->lat, "\n";lon
Sets of returns lon
print $obj->lon, "\n";alt
Sets of returns alt
print $obj->alt, "\n";speed
Sets of returns speed
print $obj->speed, "\n";heading
Sets of returns heading
print $obj->heading, "\n";time
Sets of returns time
print $obj->time, "\n";etime
Sets of returns etime
print $obj->etime, "\n";ehorizontal
Sets of returns ehorizontal
print $obj->ehorizontal, "\n";evertical
Sets of returns evertical
print $obj->evertical, "\n";climb
Sets of returns climb
print $obj->climb, "\n";eheading
Sets of returns eheading
print $obj->eheading, "\n";espeed
Sets of returns espeed
print $obj->espeed, "\n";eclimb
Sets of returns eclimb
print $obj->eclimb, "\n";mode
Sets of returns mode
print $obj->mode, "\n";tag
Sets of returns tag
print $obj->tag, "\n";latlon
Returns Latitude, Longitude as an array in array context and as a space joined string in scalar context
my @latlon=$point->latlon;
my $latlon=$point->latlon;BUGS
SUPPORT
AUTHOR
Michael R. Davis
CPAN ID: MRDVT
DavisNetworks.com
account=>perl,tld=>com,domain=>michaelrdavis
http://www.davisnetworks.com/COPYRIGHT
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.