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

NAME

WebService::CIA::Source::Web - An interface to the online CIA World Factbook

SYNOPSIS

  use WebService::CIA::Source::Web;
  my $source = WebService::CIA::Source::DBM->new();

DESCRIPTION

WebService::CIA::Source::Web is an interface to the live, online version of the CIA World Factbook.

It's a very slow way of doing things, but requires no pre-compiled DBM. It's more likely to be useful for proving concepts or testing.

METHODS

Apart from new, these methods are normally accessed via a WebService::CIA object.

new( \%opts )
    my $source = WebService::CIA::Source::Web->new();
    $source = WebService::CIA::Source::Web->new( { user_agent => $ua } );

This method creates a new WebService::CIA::Source::Web object. It takes an optional hashref of arguments.

user_agent

A user agent object to use. This must implement the same user interface as LWP::UserAgent (or, at least, a get() method).

value($country_code, $field)

Retrieve a value from the web.

$country_code should be the FIPS 10-4 country code as defined in https://www.cia.gov/library/publications/the-world-factbook/appendix/appendix-d.html.

$field should be the name of the field whose value you want to retrieve, as defined in https://www.cia.gov/library/publications/the-world-factbook/docs/notesanddefs.html. (WebService::CIA::Parser also creates four extra fields: "URL", "URL - Print", "URL - Flag", and "URL - Map" which are the URLs of the country's Factbook page, the printable version of that page, a GIF map of the country, and a GIF flag of the country respectively.)

value will return undef if the country or field cannot be found, or if there is an error GETing the page. This isn't ideal, but I can't think of the best way around it right now.

all($country_code)

Returns a hashref of field-value pairs for $country_code or an empty hashref if $country_code isn't available from the Factbook.

get($country_code)

Retrieve and cache the data for a country.

Returns 1 if successful, 0 if not.

cached($country_code)

Get/set the country code whose data is cached.

cache($hashref)

Get/set a hashref of data for the current country.

parser()

Returns a reference to the WebService::CIA::Parser object being used.

ua( $userAgent )

Returns a reference to the user agent object being used. By default this is an LWP::UserAgent object, but you can pass a different object in if you wish.

last_response()

Returns the HTTP::Response object from the last request.

CACHING

In order to make some small improvement in efficiency, WebService::CIA::Source::Web keeps a copy of the data for the last country downloaded in memory.

TO DO

File system based caching of pages.
User-definable stack of cached countries, rather than just one.
Caching of last-modified headers; conditional GET.

AUTHOR

Ian Malpass (ian-cpan@indecorous.com)

COPYRIGHT

Copyright 2003-2007, Ian Malpass

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The CIA World Factbook's copyright information page (https://www.cia.gov/library/publications/the-world-factbook/docs/contributor_copyright.html) states:

  The Factbook is in the public domain. Accordingly, it may be copied
  freely without permission of the Central Intelligence Agency (CIA).

SEE ALSO

WebService::CIA, WebService::CIA::Parser, WebService::CIA::Source::DBM