File Coverage

blib/lib/Geo/Google/Location.pm

Criterion	Covered	Total	%
statement	21	53	39.6
branch	0	2	0.0
condition			n/a
subroutine	7	17	41.1
pod	0	10	0.0
total	28	82	34.1

package Geo::Google::Location;
use strict;
use warnings;
use Data::Dumper;
use URI::Escape;
use JSON;
use Geo::Google;
our $VERSION = '0.04-rc3';

use constant FMT => <<_FMT_;





      %s



_FMT_

#      $loc->{'latitude'} = $lat;
#      $loc->{'longitude'} = $lng;
#      $loc->{'lines'} = [@lines];
#      $loc->{'id'} = $id;
#      $loc->{'icon'} = $icon;
#      $loc->{'infostyle'} = $infoStyle;

sub new {
  my $class = shift;
  my %arg = @_;
  my $self = bless \%arg, $class;
}

sub icon      { return shift->{'icon'} }
sub id        { return shift->{'id'} }
sub infostyle { return shift->{'infostyle'} }
sub latitude  { return shift->{'latitude'} }
sub lines     { my $self = shift; return $self->{'lines'} ? @{ $self->{'lines'} } : () }
sub longitude { return shift->{'longitude'} }
sub title     { return shift->{'title'} }

sub toXML {
  my $self = shift;
  return sprintf( FMT,
    $self->infostyle(),
    $self->id(),
    $self->latitude(),
    $self->longitude(),
    $self->icon(),
    join('',map {"$_"} $self->lines() ),
  );
}

sub toJSON {
	my $self = shift;
	my $json = new JSON (barekey => 1);

	# Construct the shell of a new perl data structure that we
	# can pass off to the JSON module for rendering to a string
	my $preJSON = Geo::Google::_JSONrenderSkeleton();

	# Fill the perl data structure with information from this
	# location
	$preJSON->{"form"}->{"l"}->{"near"} = $self->title();
	$preJSON->{"form"}->{"q"}->{"q"} = $self->title();
	$preJSON->{"form"}->{"d"}->{"daddr"} = $self->title();
	$preJSON->{"form"}->{"selected"} = "q";
	push( @{$preJSON->{"overlays"}->{"markers"}}, {
		"icon" => "addr",
		"laddr" => $self->title(),
		"svaddr" => $self->title(),
		"lat" => $self->latitude(),
		"lng" => $self->longitude(),
		"id" => "addr",
		"adr" => 1,
		"image" => "/mapfiles/arrow.png",
		"elms" => [(3, 2, 6)],
		"dtlsUrl" => "/maps?v=1&q=" . uri_escape($self->title())
			. "&ie=UTF8&hl=en&latlng=&ei=",
		"infoWindow" => {
				"basics" => join("", $self->lines()),
				"type" => "html",
				"_" => 0
				}
		});
	$preJSON->{"printheader"} = $self->title();
	$preJSON->{"viewport"}->{"span"}->{"lat"} = "0.089989";
	$preJSON->{"viewport"}->{"span"}->{"lng"} = "0.107881";
	$preJSON->{"viewport"}->{"center"}->{"lat"} = $self->latitude();
	$preJSON->{"viewport"}->{"center"}->{"lng"} = $self->longitude();
	$preJSON->{"url"} = "/maps?v=1&q=" .
				uri_escape($self->title()) . "&ie=UTF8";
	$preJSON->{"title"} = $self->title();

	# Render the data structure to a JSON string and return it
	return $json->objToJson($preJSON);
}

1;
__END__