File Coverage

blib/lib/Net/GeoPlanet.pm

Criterion	Covered	Total	%
statement	9	146	6.1
branch	0	116	0.0
condition	0	3	0.0
subroutine	3	16	18.7
pod	11	11	100.0
total	23	292	7.8

package Net::GeoPlanet;

use strict;
use LWP;
use URI;

our $VERSION = '0.2';
our $QUERY_API_URL = 'http://where.yahooapis.com/v1/';
our @required_params = qw(api_key);

sub places {
	my $self = shift;
    my %p = @_;
	my $url = $QUERY_API_URL;
	$url .= "places";
	if(defined $p{type}) {
		$url .= '$and(.q(' . $p{place} . '),.type(' . $p{type} . '));?';
	} else {
		$url .= '.q(\'' . $p{place} . '\')?';
	}
	$url .= 'start=' 	  . $p{start}		. '&' if defined $p{start};
	$url .= 'count='	  . $p{count}		. '&' if defined $p{count};
	$url .= 'lang='       . $p{lang}		. '&' if defined $p{lang};
	$url .= 'format='     . $p{format}		. '&' if defined $p{format};
	$url .= 'callback='   . $p{callback}	. '&' if defined $p{callback};
	$url .= 'select='     . $p{select}		. '&' if defined $p{select};
	$url .= 'appid='	  . $self->{api_key};
	return $self->_make_request($url, 'get');
}

sub place {
	my $self = shift;
	my %p = @_;
	my $url = $QUERY_API_URL;
	$url .= 'place/'    . $p{woeid} . '?';
	$url .= 'select='   . $p{select} . '&' if defined $p{select};
	$url .= 'lang='     . $p{lang} . '&' if defined $p{lang};
	$url .= 'format='   . $p{format} . '&' if defined $p{format};
	$url .= 'callback=' . $p{callback} . '&' if defined $p{callback};
	$url .= 'appid='    . $self->{api_key};
	return $self->_make_request($url, 'get');
}

sub parent {
	my $self = shift;
	my %p = @_;
	my $url = $QUERY_API_URL;
	$url .= 'place/'    . $p{woeid} . '/parent?';
	$url .= 'start=' 	. $p{start} . '&' if defined $p{start};
	$url .= 'count='	. $p{count} . '&' if defined $p{count};
	$url .= 'select='   . $p{select} . '&' if defined $p{select};
	$url .= 'lang='     . $p{lang} . '&' if defined $p{lang};
	$url .= 'format='   . $p{format} . '&' if defined $p{format};
	$url .= 'callback=' . $p{callback} . '&' if defined $p{callback};
	$url .= 'appid='    . $self->{api_key};
	return $self->_make_request($url, 'get');
}

sub ancestors {
	my $self = shift;
	my %p = @_;
	my $url = $QUERY_API_URL;
	$url .= 'place/'    . $p{woeid} . '/ancestors?';
	$url .= 'select='   . $p{select} . '&' if defined $p{select};
	$url .= 'lang='     . $p{lang} . '&' if defined $p{lang};
	$url .= 'format='   . $p{format} . '&' if defined $p{format};
	$url .= 'callback=' . $p{callback} . '&' if defined $p{callback};
	$url .= 'appid='    . $self->{api_key};
	return $self->_make_request($url, 'get');
}

sub belongtos {
	my $self = shift;
	my %p = @_;
	my $url = $QUERY_API_URL;
	$url .= 'place/'    . $p{woeid} . '/belongtos?';
	$url .= 'start=' 	. $p{start} . '&' if defined $p{start};
	$url .= 'count='	. $p{count} . '&' if defined $p{count};
	$url .= 'select='   . $p{select} . '&' if defined $p{select};
	$url .= 'lang='     . $p{lang} . '&' if defined $p{lang};
	$url .= 'format='   . $p{format} . '&' if defined $p{format};
	$url .= 'callback=' . $p{callback} . '&' if defined $p{callback};
	$url .= 'appid='    . $self->{api_key};
	return $self->_make_request($url, 'get');
}

sub neighbors {
	my $self = shift;
	my %p = @_;
	my $url = $QUERY_API_URL;
	$url .= 'place/'    . $p{woeid} . '/neighbors?';
	$url .= 'start=' 	. $p{start} . '&' if defined $p{start};
	$url .= 'count='	. $p{count} . '&' if defined $p{count};
	$url .= 'select='   . $p{select} . '&' if defined $p{select};
	$url .= 'lang='     . $p{lang} . '&' if defined $p{lang};
	$url .= 'format='   . $p{format} . '&' if defined $p{format};
	$url .= 'callback=' . $p{callback} . '&' if defined $p{callback};
	$url .= 'appid='    . $self->{api_key};
	return $self->_make_request($url, 'get');
}

sub siblings {
	my $self = shift;
	my %p = @_;
	my $url = $QUERY_API_URL;
	$url .= 'place/'    . $p{woeid} . '/siblings?';
	$url .= 'start=' 	. $p{start} . '&' if defined $p{start};
	$url .= 'count='	. $p{count} . '&' if defined $p{count};
	$url .= 'select='   . $p{select} . '&' if defined $p{select};
	$url .= 'lang='     . $p{lang} . '&' if defined $p{lang};
	$url .= 'format='   . $p{format} . '&' if defined $p{format};
	$url .= 'callback=' . $p{callback} . '&' if defined $p{callback};
	$url .= 'appid='    . $self->{api_key};
	return $self->_make_request($url, 'get');
}

sub children {
	my $self = shift;
	my %p = @_;
	my $url = $QUERY_API_URL;
	$url .= 'place/'    . $p{woeid} . '/children?';
	$url .= 'start=' 	. $p{start} . '&' if defined $p{start};
	$url .= 'count='	. $p{count} . '&' if defined $p{count};
	$url .= 'select='   . $p{select} . '&' if defined $p{select};
	$url .= 'lang='     . $p{lang} . '&' if defined $p{lang};
	$url .= 'format='   . $p{format} . '&' if defined $p{format};
	$url .= 'callback=' . $p{callback} . '&' if defined $p{callback};
	$url .= 'appid='    . $self->{api_key};
	return $self->_make_request($url, 'get');
}

sub placetypes {
	my $self = shift;
	my %p = @_;
	my $url = $QUERY_API_URL;
	if(defined $p{type}) {
		$url .= "placetypes.type(" . $p{type} . ")?";
	} else {
		$url .= "placetypes?";
	}
	$url .= 'lang='       . $p{lang} . '&' if defined $p{lang};
	$url .= 'format='   . $p{format} . '&' if defined $p{format};
	$url .= 'callback=' . $p{callback} . '&' if defined $p{callback};
	$url .= 'select='   . $p{select} . '&' if defined $p{select};
	$url .= 'start=' 	. $p{start} . '&' if defined $p{start};
	$url .= 'count='	. $p{count} . '&' if defined $p{count};
	$url .= 'appid=' . $self->{api_key};
	return $self->_make_request($url, 'get');
}

sub placetype {
	my $self = shift;
	my %p = @_;
	my $url = $QUERY_API_URL;
	$url .= "placetype/"	. $p{woeid}		. '?';
	$url .= 'lang='			. $p{lang}		. '&' if defined $p{lang};
	$url .= 'format='		. $p{format}	. '&' if defined $p{format};
	$url .= 'callback='		. $p{callback}	. '&' if defined $p{callback};
	$url .= 'select='		. $p{select}	. '&' if defined $p{select};
	$url .= 'appid='		. $self->{api_key};
	return $self->_make_request($url, 'get');
}

sub _make_request {
	my $self = shift;
	my $url = shift;
	my $method = shift;
	my $u = URI->new($url);

	my $response = $self->{browser}->$method($u, 'Accept' => "application/xml");

 	die "$method on $url failed: " . $response->status_line
		unless ( $response->is_success );

	return $response->content;
}

sub _check {
    my $self = shift;
    foreach my $param ( @required_params ) {
        if ( not defined $self->{$param} ) {
            die "Missing required parameter '$param'";
        }
    }
}

sub new {
    my $proto  = shift;
    my $class  = ref $proto || $proto;
    my %params = @_;
    my $client = bless \%params, $class;

    # Verify arguments
    $client->_check;

    $client->{browser} = LWP::UserAgent->new;

    return $client;
}

1;

__END__