| Geo-GoogleEarth-Pluggable documentation | Contained in the Geo-GoogleEarth-Pluggable distribution. |
Geo::GoogleEarth::Pluggable::Contrib::Point - Geo::GoogleEarth::Pluggable Point Object
use Geo::GoogleEarth::Pluggable; my $document=Geo::GoogleEarth::Pluggable->new(); $document->Point();
Geo::GoogleEarth::Pluggable::Contrib::Point is a Geo::GoogleEarth::Pluggable::Placemark with a few other methods.
my $placemark=$document->Point(name=>"Point Name",
lat=>$lat,
lon=>$lon,
alt=>$alt);
my $placemark=$document->Point(
name => "White House",
lat => 38.89769, #signed decimal degrees WGS-84
lon => -77.036549, #signed decimal degrees WGS-84
alt => 30, #meters above ellipsoid WGS-84
);
Sets or returns latitude. The format is signed decimal degrees WGS-84.
my $lat=$placemark->lat;
Sets or returns longitude. The format is signed decimal degrees WGS-84.
my $lon=$placemark->lon;
Sets or returns altitude. The units are meters above the ellipsoid WGS-84.
my $alt=$placemark->alt;
Typically, Google Earth "snaps" Placemarks to the surface regardless of how the altitude is set.
Please log on RT and send to the geo-perl email list.
DavisNetworks.com supports all Perl applications including this package.
Michael R. Davis (mrdvt92) CPAN ID: MRDVT
This program is free software licensed under the...
The BSD License
The full text of the license can be found in the LICENSE file included with this module.
| Geo-GoogleEarth-Pluggable documentation | Contained in the Geo-GoogleEarth-Pluggable distribution. |
package Geo::GoogleEarth::Pluggable::Contrib::Point; use base qw{Geo::GoogleEarth::Pluggable::Placemark}; use XML::LibXML::LazyBuilder qw{E}; use warnings; use strict; our $VERSION='0.13';
sub subnode { my $self=shift; my $coordinates=join(",", $self->lon+0, $self->lat+0, $self->alt+0); return E(Point=>{}, E(coordinates=>{}, $coordinates)); }
sub lat { my $self=shift; $self->{'lat'}=shift if @_; return $self->{'lat'}; }
sub lon { my $self=shift; $self->{'lon'}=shift if @_; return $self->{'lon'}; }
sub alt { my $self=shift; $self->{'alt'}=shift if @_; $self->{'alt'}||=0; return $self->{'alt'}; }
1;