Yet Another CPAN Grep

Geo-Coder-Ovi ( G/GR/GRAY/Geo-Coder-Ovi-0.03.tar.gz, GRAY, 2011; MetaCPAN )

Geo-Coder-Ovi/lib/Geo/Coder/Ovi.pm ( view source; MetaCPAN )

package Geo::Coder::Ovi;

use strict;
use warnings;

use Carp qw(croak);
use Encode ();
use JSON;
use LWP::UserAgent;
use URI;

our $VERSION = '0.03';
$VERSION = eval $VERSION;

sub new {
    my ($cla

$params{la} = $language;
    }

    my $uri = URI->new('http://where.desktop.mos.svc.ovi.com/NOSe/json');
    $uri->query_form(
        app_id => $self->{appid},
        token  => $self->{token},

f the response from 'application/json' so
    # HTTP::Message will decode the character encoding.
    $res->content_type('text/plain');

    my $data = eval { from_json($res->decoded_content) };
    r