view release on metacpan or  search on metacpan

lib/Geo/Coder/Ovi.pm  view on Meta::CPAN

    my $raw = delete $params{raw};

    $_ = Encode::encode('utf-8', $_) for values %params;

    my $location = delete $params{location} or return;

    if (my $language = delete $params{language}) {
        $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},
        q      => $location,
        vi     => 'where',
        dv     => 'oviMapsAPI',
        lat    => 0,
        lon    => 0,
        %params,
    );