maps/lib/KML.pm

package KML;

use strict;
use warnings;

Template::Declare->init( roots => ['KML::Templates']);

sub output {
        my $self = shift;
        return Template::Declare->show('main', @_);
}


package KML::Templates;

use base 'Template::Declare';
use blib;
use Template::Declare::Tags qw/ KML /;

use Data::Dump qw/dump/;

template main => sub {
        my $self = shift;
        my $args = {@_};
        warn "## args = ",dump( $args );
        xml_decl { 'xml', version => '1.0', encoding=> "UTF-8" };
        xml_decl { 'kml', 'xmlns' => "http://earth.google.com/kml/2.2" };
        Document {
                name { $args->{document} || 'KML export' }
                Folder {
                        name { $args->{folder} || 'placemarks' };
                        if ( ref( $args->{placemarks} ) eq 'ARRAY' ) {
                                foreach my $placemark ( @{ $args->{placemarks} } ) {
                                        Placemark {
                                                name { $placemark->{number} }
                                                description { outs_raw( $placemark->{html} ) }
                                                Point {
                                                        foreach my $point ( $placemark->{point} ) {
                                                                coordinates { join(',', @$point) };
                                                        }
                                                }
                                        }
                                }
                        }
                }
        }
};


1;
1	dpavlin	30	package KML;
2
3			use strict;
4			use warnings;
5
6			Template::Declare->init( roots => ['KML::Templates']);
7
8			sub output {
9			my $self = shift;
10			return Template::Declare->show('main', @_);
11			}
12
13
14			package KML::Templates;
15
16			use base 'Template::Declare';
17			use blib;
18			use Template::Declare::Tags qw/ KML /;
19
20			use Data::Dump qw/dump/;
21
22			template main => sub {
23			my $self = shift;
24			my $args = {@_};
25			warn "## args = ",dump( $args );
26			xml_decl { 'xml', version => '1.0', encoding=> "UTF-8" };
27			xml_decl { 'kml', 'xmlns' => "http://earth.google.com/kml/2.2" };
28			Document {
29			name { $args->{document} \|\| 'KML export' }
30			Folder {
31			name { $args->{folder} \|\| 'placemarks' };
32			if ( ref( $args->{placemarks} ) eq 'ARRAY' ) {
33			foreach my $placemark ( @{ $args->{placemarks} } ) {
34			Placemark {
35			name { $placemark->{number} }
36			description { outs_raw( $placemark->{html} ) }
37			Point {
38			foreach my $point ( $placemark->{point} ) {
39			coordinates { join(',', @$point) };
40			}
41			}
42			}
43			}
44			}
45			}
46			}
47			};
48
49
50			1;