The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 04
META.json 22
META.yml 99
lib/Geo/Coder/Googlev3.pm 44
t/geocode.t 23
5 files changed (This is a version diff) 1722
@@ -1,5 +1,9 @@
 Revision history for Perl extension Geo::Coder::Googlev3.
 
+0.14
+	- documentation fix [github.com pull request #2]
+	- fixed test for changed results (Oeschelbronner Weg vs. Path)
+
 0.13
 	- stable release with all changes in 0.12_50..0.12_51
 
@@ -4,7 +4,7 @@
       "Slaven Rezic <srezic@cpan.org>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921",
+   "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142690",
    "license" : [
       "perl_5"
    ],
@@ -45,5 +45,5 @@
          "url" : "git://github.com/eserte/Geo-Coder-Googlev3.git"
       }
    },
-   "version" : "0.13"
+   "version" : "0.14"
 }
@@ -3,25 +3,25 @@ abstract: 'Google Maps v3 Geocoding API '
 author:
   - 'Slaven Rezic <srezic@cpan.org>'
 build_requires:
-  ExtUtils::MakeMaker: 0
+  ExtUtils::MakeMaker: '0'
 configure_requires:
-  ExtUtils::MakeMaker: 0
+  ExtUtils::MakeMaker: '0'
 dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 2.120921'
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142690'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
-  version: 1.4
+  version: '1.4'
 name: Geo-Coder-Googlev3
 no_index:
   directory:
     - t
     - inc
 requires:
-  Encode: 0
-  JSON::XS: 0
-  LWP::UserAgent: 0
-  URI: 0
+  Encode: '0'
+  JSON::XS: '0'
+  LWP::UserAgent: '0'
+  URI: '0'
 resources:
   repository: git://github.com/eserte/Geo-Coder-Googlev3.git
-version: 0.13
+version: '0.14'
@@ -1,9 +1,9 @@
-# -*- perl -*-
+# -*- mode:perl; coding:iso-8859-1 -*-
 
 #
 # Author: Slaven Rezic
 #
-# Copyright (C) 2010,2011,2013 Slaven Rezic. All rights reserved.
+# Copyright (C) 2010,2011,2013,2014 Slaven Rezic. All rights reserved.
 # This package is free software; you can redistribute it and/or
 # modify it under the same terms as Perl itself.
 #
@@ -12,7 +12,7 @@ package Geo::Coder::Googlev3;
 
 use strict;
 use vars qw($VERSION);
-our $VERSION = '0.13';
+our $VERSION = '0.14';
 
 use Carp            ('croak');
 use Encode          ();
@@ -171,7 +171,7 @@ C<apikey> is used in Google's v3 API, and the returned data structure
 differs.
 
 Please check also
-L<http://code.google.com/intl/en/apis/maps/documentation/geocoding/>
+L<https://developers.google.com/maps/documentation/geocoding/>
 for more information about Google's Geocoding API and especially usage
 limits.
 
@@ -46,9 +46,10 @@ SKIP: {
     within $lat, $lng, 52.5, 52.6, 13.3, 13.4;
 }
 
+# Since approx. 2014-10 "Oeschelbronner Path" instead of "Öschelbronner Weg" is returned (!)
 { # encoding checks - bytes
     my $location = safe_geocode { $geocoder->geocode(location => 'Öschelbronner Weg, Berlin, Germany') };
-    like $location->{formatted_address}, qr{schelbronner weg.*berlin}i;
+    like $location->{formatted_address}, qr{schelbronner (weg|path).*berlin}i;
     my($lat, $lng) = @{$location->{geometry}->{location}}{qw(lat lng)};
     within $lat, $lng, 52.6, 52.7, 13.3, 13.4;
 }
@@ -57,7 +58,7 @@ SKIP: {
     my $street = 'Öschelbronner Weg';
     utf8::upgrade($street);
     my $location = safe_geocode { $geocoder->geocode(location => "$street, Berlin, Germany") };
-    like $location->{formatted_address}, qr{schelbronner weg.*berlin}i;
+    like $location->{formatted_address}, qr{schelbronner (weg|path).*berlin}i;
     my($lat, $lng) = @{$location->{geometry}->{location}}{qw(lat lng)};
     within $lat, $lng, 52.6, 52.7, 13.3, 13.4;
 }