- $kmlwriter->startTag("Placemark");
- $kmlwriter->dataElement("name", $country->{name});
- $kmlwriter->startTag("LineString");
- $kmlwriter->dataElement("coordinates", "$clon,$clat $slon,$slat");
- $kmlwriter->endTag("LineString");
- $kmlwriter->endTag("Placemark");
+ push @json, {
+ type => "Feature",
+ geometry => {
+ type => "LineString",
+ coordinates => [ [ $clon, $clat ], [ $slon, $slat ] ]
+ },
+ properties => {
+ country => $country->{name}
+ }
+ };