File Coverage

blib/lib/Metabrik/Api/Geonames.pm

Criterion	Covered	Total	%
statement	9	38	23.6
branch	0	24	0.0
condition			n/a
subroutine	3	7	42.8
pod	2	4	50.0
total	14	73	19.1

#
# $Id$
#
# api::geonames Brik
#
package Metabrik::Api::Geonames;
use strict;
use warnings;

use base qw(Metabrik::Client::Rest);

sub brik_properties {
   return {
      revision => '$Revision$',
      tags => [ qw(unstable) ],
      author => 'GomoR ',
      license => 'http://opensource.org/licenses/BSD-3-Clause',
      attributes => {
         username => [ qw(username) ],
      },
      attributes_default => {
      },
      commands => {
         find_nearby_place_name => [ qw(lat long) ],
         find_nearby => [ qw(lat long) ],
      },
      require_modules => {
      },
      require_binaries => {
      },
      optional_binaries => {
      },
      need_packages => {
      },
   };
}

#
# API doc:
#
# http://www.geonames.org/export/web-services.html
#

sub brik_init {
   my $self = shift;

   # Do your init here, return 0 on error.

   return $self->SUPER::brik_init;
}

#
# curl 'http://api.geonames.org/findNearbyPlaceNameJSON?formatted=true&lat=52.22991544468422&lng=21.011717319488525&username=demo'
#
sub find_nearby_place_name {
   my $self = shift;
   my ($lat, $long) = @_;

   my $username = $self->username;
   $self->brik_help_set_undef_arg('username', $username) or return;

   $self->brik_help_run_undef_arg('find_nearby_place_name', $lat)
      or return;
   $self->brik_help_run_undef_arg('find_nearby_place_name', $long)
      or return;

   if ($lat !~ m{^\d+\.\d+$}) {
      return $self->log->error("find_nearby_place_name: lat format error");
   }
   if ($long !~ m{^\d+\.\d+$}) {
      return $self->log->error("find_nearby_place_name: long format error");
   }

   my $url = 'http://api.geonames.org/findNearbyPlaceNameJSON?'.
      #'radius=10&style=full&lang=en&formatted=true&lat='.$lat.'&lng='.$long.'&username='.$username;
      'cities=cities1000&style=full&formatted=true&lat='.$lat.'&lng='.$long.'&username='.$username;

   my $get = $self->get($url) or return;

   return $self->content;
}

sub find_nearby {
   my $self = shift;
   my ($lat, $long) = @_;

   my $username = $self->username;
   $self->brik_help_set_undef_arg('username', $username) or return;

   $self->brik_help_run_undef_arg('find_nearby', $lat)
      or return;
   $self->brik_help_run_undef_arg('find_nearby', $long)
      or return;

   if ($lat !~ m{^\d+\.\d+$}) {
      return $self->log->error("find_nearby: lat format error");
   }
   if ($long !~ m{^\d+\.\d+$}) {
      return $self->log->error("find_nearby: long format error");
   }

   my $url = 'http://api.geonames.org/findNearbyJSON?'.
      'style=full&formatted=true&lat='.$lat.'&lng='.$long.'&username='.$username;

   my $get = $self->get($url) or return;

   return $self->content;
}

1;

__END__