Example of using Google Maps geocoder and the Represent API to return a provincial riding name based on a partial address string

geocoder-british-columbia.pl

#!/usr/bin/perl 

use strict;
use warnings;
use v5.14.2;

use Google::GeoCoder::Smart;
use LWP::Simple;
use JSON;
use Data::Dump qw(dump);

my $geo = Google::GeoCoder::Smart->new();
my $API = 'http://represent.opennorth.ca/boundaries/?sets=british-columbia-electoral-districts&contains=';
# http://represent.opennorth.ca/boundaries/?contains=49.323802%2C-122.947072&format=apibrowser

my ( $resultnum, $error, @results, $returncontent )
    = $geo->geocode( "address" => "deep cove, north vancouver, bc" );

$resultnum--;

for my $num ( 0 .. $resultnum ) {

    my $lat = $results[$num]{geometry}{location}{lat};
    my $long = $results[$num]{geometry}{location}{lng};
    my $response = get( $API . $lat . ',' . $long);
        die "Couldn't get it!" unless defined $response;
    my $boundary_info = decode_json $response;
    #say dump( $boundary_info );
    say $boundary_info->{'objects'}[0]->{'name'};
}