File Coverage

blib/lib/Geo/Query/LatLong.pm

Criterion	Covered	Total	%
statement	12	75	16.0
branch	0	24	0.0
condition	0	14	0.0
subroutine	4	8	50.0
pod	1	4	25.0
total	17	125	13.6

package Geo::Query::LatLong;

############################################################
# Geo::Query::LatLong
#
# Author: Reto Schaer
# Copyright (c) 2007 - 2008
#
# http://meta.pgate.net/geo-query-latlong/
#
our $VERSION = '0.8011';
############################################################

use strict;

use LWP::UserAgent;
use HTTP::Request::Common;

# GLOBAL VARIABLES
my $package = __PACKAGE__;
my %Var = ();
my $contentType = "";
my $ua;
$| = 1;

#-----  FORWARD DECLARATIONS & PROTOTYPING
sub Debug($);

sub new {
	my $type = shift;
	my %params = @_;
	my $self = {};
	$self->{'debug' } = $params{'debug' };
	$self->{'source'} = $params{'source'} || 'geo'.'111';
	Debug "$package V$VERSION" if $self->{'debug'};
	$ua = LWP::UserAgent->new( agent => "Geo::Query::LatLong $VERSION" );

	$Var{'source'} = 'geo'.'111';
	if ($self->{'source'} eq 'Google') {
		$self->{'apikey'} = $params{'apikey'} || '';
		unless ($self->{'apikey'}) {
			print STDERR "ERR: apikey required.\n";
		}
		else {
			# Everything looks good so far
			$Var{'source'} = 'Google';
		}
	}

	bless $self, $type;
}

sub query {
	my $self = shift;
	my %args = @_;

	$args{'country_code'} ||= 'SZ'; # FIPS 10
	$args{'city'        } ||= ''  ; # e.g. Zurich
	$args{'exact'       } ||= 'on';

	my %res_hash = ();
	   $res_hash{'rc'} = 0;
	   $res_hash{'lat'} = $res_hash{'lng'} = 99; # init
	   $res_hash{'source'} = $Var{'source'};

	if ($self->{'debug'}) { Debug "$_ = $args{$_}" foreach keys %args; }

	if ($Var{'source'} eq 'Google') {
		Debug 'Google API query.' if $self->{'debug'};
		my $location = &google_query($self, location => $args{'city'} );
		my @point = ();
		if (defined @{$location->{'Point'}->{'coordinates'}}) {
			$res_hash{'address'} = $location->{'address'};
			@point = @{$location->{'Point'}->{'coordinates'}};
			$res_hash{'lng'} = $point[0];
			$res_hash{'lat'} = $point[1];
		}
	}
	else {
		my $url = 'http://geo.pg' . 'ate.net/query/';
		my $r = HTTP::Request->new('GET', $url .
			"?city=$args{'city'}&country_code=$args{'country_code'}&exact=$args{'exact'}");
		my $resp = $ua->request($r);

		if ($resp->is_success) {
			my @lines = split /\n/, $resp->content();
			my $result = '';
			foreach (@lines) {
				my ($key, $val) = split /\t/;
				$res_hash{$key} = $val;
			}
		}
	}

	\%res_hash;
}

sub google_query(%) {
	my $self = shift;
	my %args = @_;
	$args{'location'} ||= '';

	eval 'use JSON::Syck; 1' or print STDERR "ERR JSON::Syck is missing\n";
	use Encode;
	# use URI;

	my $uri = URI->new("http://maps.google.com/maps/geo");
	   $uri->query_form(q => $args{'location'}, output => 'json', key => $self->{'apikey'});

	my $res = $ua->get($uri);

	# Content-Type: text/javascript; charset=UTF-8; charset=Shift_JIS
	my @ctype = $res->content_type;
	my $charset = ($ctype[1] =~ /charset=([\w\-]+)$/)[0] || "utf-8"; # Thanks to Tatsuhiko Miyagawa from Geo-Coder-Google

	my $content = Encode::decode($charset, $res->content);

	local $JSON::Syck::ImplicitUnicode = 1;
	1 if defined $JSON::Syck::ImplicitUnicode; # prevent warning
	my $data = JSON::Syck::Load($content);

	my @placemark = @{ $data->{Placemark} || [] };

	wantarray ? @placemark : $placemark[0];
}

sub Debug ($)  { print "[ $package ] $_[0]\n"; }

####  Used Warning / Error Codes  ##########################
#	Next free W Code: 1000
#	Next free E Code: 1000

####  Var
#	- source: geo.111 || Google
#	- Google_h

1;

__END__