The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -T

use Test::More tests => 10;

BEGIN {
	use_ok( 'Geo::Coder::GoogleMaps::Location' );
}

my $loc = Geo::Coder::GoogleMaps::Location->new();
ok(defined $loc);
ok($loc->isa('Geo::Coder::GoogleMaps::Location'));
ok( $loc->SubAdministrativeAreaName eq '' );
ok( $loc->PostalCodeNumber eq '' );
ok( $loc->LocalityName eq '' );
ok( $loc->ThoroughfareName eq '' );
ok( $loc->AdministrativeAreaName eq '' );
ok( $loc->CountryNameCode eq '' );
ok( $loc->address eq '' );