File Coverage

=head1 NAME

Geo::GeoNames - Perform geographical queries using GeoNames Web Services

=head1 VERSION

Version 1.15

=cut

=head1 SYNOPSIS

        use Geo::GeoNames;
        my $geo = Geo::GeoNames->new(username => $ENV{'GEONAME_USER'});

        # make a query based on placename
        my $result = $geo->search(q => 'Fredrikstad', maxRows => 2);

        # print the first result
        print ' Name: ', $result->[0]->{name}, "\n";
        print ' Longitude: ', $result->[0]->{lng}, "\n";
        print ' Latitude: ', $result->[0]->{lat}, "\n";

        # Make a query based on postcode
        $result = $geo->postalcode_search(
                postalcode => '1630', maxRows => 3, style => 'FULL'
        );

=head1 DESCRIPTION

Before you start, get a free GeoNames account and enable it for
access to the free web service:

=over 4

=item * Get an account

Go to L<http://www.geonames.org/login>

=item * Respond to the email

=item * Login and enable your account for free access

L<http://www.geonames.org/enablefreewebservice>

=back

Provides a perl interface to the webservices found at
L<http://api.geonames.org>. That is, given a given placename or
postalcode, the module will look it up and return more information
(longitude, latitude, etc) for the given placename or postalcode.
Wikipedia lookups are also supported. If more than one match is found,
a list of locations will be returned.

=cut

=head2 ua

Accessor method to get and set UserAgent object used internally. You
can call I<env_proxy> for example, to get the proxy information from
environment variables:

    $geo_coder->ua()->env_proxy(1);

You can also set your own User-Agent object:

    use LWP::UserAgent::Throttled;
    $geo_coder->ua(LWP::UserAgent::Throttled->new());

=cut