Geo-Coder-GeocodeFarm

 view release on metacpan or  search on metacpan

t/050_geocode.t  view on Meta::CPAN

    cmp_deeply $result, $expected, '$result matches deeply';

    is $ua->{url}, 'https://api.geocode.farm/forward/?addr=530+W+Main+St+Anoka+MN+55303+US&key=xxx',
        'url matches';
}

package My::Mock;

sub new {
    my ($class) = @_;
    return bless +{} => $class;
}

package My::Mock::HTTP::Tiny;

use base 'My::Mock';

sub get {
    my ($self, $url) = @_;
    $self->{url} = $url;
    my $content = <<'END';

t/060_geocode_failure.t  view on Meta::CPAN

        'result is undef';

    is $ua->{url}, 'https://api.geocode.farm/forward/?addr=non-existing+address&key=xxx',
        'url matches';
}

package My::Mock;

sub new {
    my ($class) = @_;
    return bless +{} => $class;
}

package My::Mock::HTTP::Tiny;

use base 'My::Mock';

sub get {
    my ($self, $url) = @_;
    $self->{url} = $url;
    my $res = {

t/065_geocode_utf8.t  view on Meta::CPAN

    is $result->{address}{full_address}, 'Łask, Poland', '$result full_address';

    is $ua->{url}, 'https://api.geocode.farm/forward/?addr=%C5%81ask%2C+Poland&key=xxx',
        'url matches';
}

package My::Mock;

sub new {
    my ($class) = @_;
    return bless +{} => $class;
}

package My::Mock::HTTP::Tiny;

use base 'My::Mock';

sub get {
    my ($self, $url) = @_;
    $self->{url} = $url;
    my $content = <<'END';

t/070_reverse_geocode.t  view on Meta::CPAN

    cmp_deeply $result, $expected, '$result matches deeply';

    is $ua->{url}, 'https://api.geocode.farm/reverse/?lat=45.2040305&lon=-93.3995728&key=xxx', 'url matches';
}

package My::Mock;

sub new {
    my ($class) = @_;
    return bless +{} => $class;
}

package LWP::UserAgent;

sub _placeholder { }

package HTTP::Response;

sub _placeholder { }

t/080_reverse_geocode_failure.t  view on Meta::CPAN

        'result is undef';

    is $ua->{url}, 'https://api.geocode.farm/reverse/?lat=0.00&lon=0.00&key=xxx',
        'url matches';
}

package My::Mock;

sub new {
    my ($class) = @_;
    return bless +{} => $class;
}

package LWP::UserAgent;

sub _placeholder { }

package HTTP::Response;

sub _placeholder { }

 view all matches for this distribution
 view release on metacpan -  search on metacpan