| Geo-GoogleEarth-Pluggable documentation | Contained in the Geo-GoogleEarth-Pluggable distribution. |
Geo::GoogleEarth::Pluggable::Base - Geo::GoogleEarth::Pluggable Base package
use base qw{Geo::GoogleEarth::Pluggable::Base};
The is the base of all Geo::GoogleEarth::Pluggable packages.
my $document = Geo::GoogleEarth::Pluggable->new(key1=>value1,
key2=>[value=>{opt1=>val1}],
key3=>{value=>{opt2=>val2}});
Always returns the document object. Every object should know what document it is in.
Sets or returns the name property.
my $name=$folder->name;
$placemark->name("New Name");
$document->name("New Name");
Sets or returns the description property.
my $description=$folder->description;
$placemark->description("New Description");
$document->description("New Description");
Returns the Snippet used in the Snippet XML element or a Placemark. The default Snippet from Google Earth is to use the first line of the description however this package defaults to a zero line Snippet.
Snippet is rendered with maxLines as the length of the array ref and the content joined with new lines.
Typical use
$document->Point(Snippet=>"Line 1"); $document->Point(Snippet=>["Line 1", "Line 2"]);
Extended used
my $snippet=$placemark->Snippet; #[] always array reference
$placemark->Snippet([]); #default
$placemark->Snippet(["line 1", "line 2", "line 3"]);
$placemark->Snippet("My Snippet Text"); #folded into array reference.
$placemark->Snippet("line 1", "line 2", "line 3"); #folded into array reference
Sets or returns a Geo::GoogleEarth::Pluggable::LookAt object
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 creates a GoogleEarth Document.
| Geo-GoogleEarth-Pluggable documentation | Contained in the Geo-GoogleEarth-Pluggable distribution. |
package Geo::GoogleEarth::Pluggable::Base; use warnings; use strict; use base qw{Package::New}; our $VERSION='0.14';
sub document {shift->{"document"}};
sub name { my $self=shift; $self->{'name'}=shift if @_; return $self->{'name'}; }
sub description { my $self=shift; $self->{'description'}=shift if @_; return $self->{'description'}; }
sub Snippet { my $self=shift; if (@_ == 1) { $self->{"Snippet"}=shift; } elsif (@_ > 1) { $self->{"Snippet"}=[@_]; } #force undef to default empty array reference $self->{"Snippet"}=[] unless defined $self->{"Snippet"}; #force to array reference $self->{"Snippet"}=[$self->{"Snippet"}] unless ref($self->{"Snippet"}) eq "ARRAY"; return $self->{"Snippet"}; }
sub lookat { my $self=shift; $self->{"lookat"}=shift if @_; return $self->{"lookat"}; }
1;