Geo::GoogleEarth::Pluggable3pm
Generates googleearth documents
Usage
use Geo::GoogleEarth::Pluggable;my $document=Geo::GoogleEarth::Pluggable->new(%data); #is a special Folder...my $folder =$document->Folder(%data); #isa Geo::GoogleEarth::Pluggable::Foldermy $point =$document->Point(%data); #isa Geo::GoogleEarth::Pluggable::Pointmy $netlink =$document->NetworkLink(%data); #isa Geo::GoogleEarth::Pluggable::NetworkLinkmy $lookat =$document->LookAt(%data); #isa Geo::GoogleEarth::Pluggable::LookAtmy $style =$document->Style(%data); #isa Geo::GoogleEarth::Pluggable::Styleprint $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;
Overview
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 (aka Document) is a Geo::GoogleEarth::Pluggable::Folder with a render method.
Object Inheritance Graph
--- Constructor -+- Base --- Folder --- Document| || +- Placemark -+- Point| | +- LineString| | +- LinearRing| || +- StyleBase -+- Style| | +- StyleMap| || +- NetworkLink|+- LookAt
Constructors that append to the parent folder object
Folder, NetworkLink, Point, LineString, LinearRing
Constructors that return objects for future use
LookAt(), Style(), StyleMap()
Wrappers (what makes it easy)
Style => IconStyle, LineStyle, PolyStyle, LabelStyle, ListStyle
Point => MultiPoint
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+xmlContent-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+xmlContent-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
- 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)
Limitations
Not So Pretty XML
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 -
Write Only
This package can only write KML and KMZ files. However, if you need to read KML files, please see the Geo::KML package's "from" method.
Support
DavisNetworks.com supports all Perl applications including this package.
Releases
7 releases since Debian 7 (Wheezy); the text changed 3 times.