NAME

Geo::GoogleEarth::Pluggable - Generates GoogleEarth Documents

SYNOPSIS

use Geo::GoogleEarth::Pluggable;
my $document=Geo::GoogleEarth::Pluggable->new(%data); #is a special Folder...
my $folder  =$document->Folder(%data);                #L<Geo::GoogleEarth::Pluggable::Folder>
my $point   =$document->Point(%data);                 #L<Geo::GoogleEarth::Pluggable::Point>
my $netlink =$document->NetworkLink(%data);           #L<Geo::GoogleEarth::Pluggable::NetworkLink>
my $style   =$document->Style(%data);                 #L<Geo::GoogleEarth::Pluggable::Style>
print $document->render;

KML CGI Example

use Geo::GoogleEarth::Pluggable;
my $document=Geo::GoogleEarth::Pluggable->new(name=>"KML Document");
print $document->header,
      $document->render;

KMZ CGI Example

use Geo::GoogleEarth::Pluggable;
my $document=Geo::GoogleEarth::Pluggable->new(name=>"KMZ Document");
print $document->header_kmz,
      $document->archive;

DESCRIPTION

Geo::GoogleEarth::Pluggable is a Perl object oriented interface that allows for the creation of XML documents that can be used with Google Earth.

Geo::GoogleEarth::Pluggable is a Geo::GoogleEarth::Pluggable::Folder with a render method.

Object Inheritance Graph

-- Base --- Folder    --- Document
         ¦
         +- Placemark --- Point
         ¦             +- LineString
         ¦             +- LinearRing
         ¦
         +- StyleBase --- Style
         ¦             +- StyleMap
         ¦
         +- NetworkLink

Note: Folder is also a Method::Autoload object and Document is a Geo::GoogleEarth::Pluggable object

USAGE

This is all of the code you need to generate a complete Google Earth document.

use Geo::GoogleEarth::Pluggable;
my $document=Geo::GoogleEarth::Pluggable->new;
$document->Point(name=>"White House", lat=>38.897337, lon=>-77.036503);
print $document->render;

CONSTRUCTOR

new

my $document=Geo::GoogleEarth::Pluggable->new(name=>"My Name");

METHODS

type

Returns the object type.

my $type=$folder->type;

document

Returns the document object.

All objects know to which document they belong even the document itself!

render

Returns an XML document with an XML declaration and a root name of "Document"

print $document->render;

archive

Returns a KMZ formatted Zipped archive of the XML document

print $document->archive;

xmlns

Add or update a namespace

$document->xmlns->{"namespace"}=$url;

Delete a namespace

delete($document->xmlns->{"xmlns:gx"});

Replace all namespaces

$document->{"xmlns"}={namespace=>$url};

Reset to default namespaces

delete($document->{"xmlns"});

nextId

This method is in the document since all Styles and StyleMaps are in the document not folders.

my $id=$document->nextId($type); #$type in "Style" or "StyleMap"

header, header_kml

Returns a header appropriate for a web application

Content-type: application/vnd.google-earth.kml+xml
Content-Disposition: attachment; filename=filename.xls

$document->header                                                       #embedded in browser
$document->header(filename=>"filename.xls")                             #download prompt
$document->header(content_type=>"application/vnd.google-earth.kml+xml") #default content type

header_kmz

Returns a header appropriate for a web application

Content-type: application/vnd.google-earth.kml+xml
Content-Disposition: attachment; filename=filename.xls

$document->header_kmz                                                   #embedded in browser
$document->header_kmz(filename=>"filename.xls")                         #download prompt
$document->header_kmz(content_type=>"application/vnd.google-earth.kmz") #default content type

TODO

Full support for LookAt

Support for default Polygon and Line styles that are nicer than GoogleEarth's

Support for DateTime object in the constructor that is promoted to the LookAt object.

Create a GPS::Point plugin (Promote tag as name and datetime to LookAt)

BUGS

Please log on RT and send to the geo-perl email list.

LIMITS

The XML produced by XML::LibXML is not "pretty". If you need pretty XML you must pass the output through xmllint or a simular product.

For example:

perl -MGeo::GoogleEarth::Pluggable -e "print Geo::GoogleEarth::Pluggable->new->render" | xmllint --format -

SUPPORT

DavisNetworks.com supports all Perl applications including this package.

AUTHOR

Michael R. Davis (mrdvt92)
CPAN ID: MRDVT

COPYRIGHT

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.

SEE ALSO

XML::LibXML::LazyBuilder, Archive::Zip, IO::Scalar

cpanm Geo::GoogleEarth::Pluggable

perl -MCPAN -e shell
install Geo::GoogleEarth::Pluggable