Business::US::USPS::WebTools::CityStateLookup - lookup a City and State by Zip Code

NAME
SYNOPSIS
TO DO
SEE ALSO
SOURCE AVAILABILITY
AUTHOR
COPYRIGHT AND LICENSE

NAME

SYNOPSIS

        use Business::US::USPS::WebTools::AddressStandardization;

        my $looker_upper = Business::US::USPS::WebTools::CityStateLookup->new( {
                UserID   => $ENV{USPS_WEBTOOLS_USERID},
                Password => $ENV{USPS_WEBTOOLS_PASSWORD},
                Testing  => 1,
                } );
                
        my $hash = $looker_upper->lookup_city_state(
                );

        if( $looker_upper->is_error )
                {
                warn "Oh No! $looker_upper->{error}{description}\n";
                }
        else
                {
                print join "\n", map { "$_: $hash->{$_}" } 
                        qw(FirmName Address1 Address2 City State Zip5 Zip4);
                }
                
                
        =head1 DESCRIPTION

*** THIS IS ALPHA SOFTWARE ***

This module implements the Address Standardization web service from the US Postal Service. It is a subclass of Business::US::USPS::WebTools.

lookup_city_state( KEY, VALUE, ... )

The verify_address method takes the following keys, which come directly from the USPS web service interface:

        FirmName        The name of the company
        Address1        The suite or apartment
        Address2        The street address
        City            The name of the city
        State           The two letter state abbreviation
        Zip5            The 5 digit zip code
        Zip4            The 4 digit extension to the zip code
        
It returns an anonymous hash with the same keys, but the values are
the USPS's canonicalized address. If there is an error, the hash values 
will be the empty string, and the error flag is set. Check is with C<is_error>:

        $verifier->is_error;
        
        See the C<is_error> documentation in Business::US::USPS::WebTools for more
        details on error information.
        
        =cut

sub lookup_city_state
{
my( $self, $zip_code ) = @_;


        $self->_make_url( { Zip5 => $zip_code } );


        $self->_make_request;


        $self->_parse_response;
        }

        
        sub _api_name { "CityStateLookup" }

sub _make_query_xml
{
my( $self, $hash ) = @_;


        my $user = $self->userid;
        my $pass = $self->password;


        my $xml = 
                qq|<CityStateLookupRequest USERID="$user" PASSWORD="$pass">|  .
                qq|<ZipCode ID="0"><Zip5>$$hash{Zip5}</Zip5>| .
                qq|</ZipCode></CityStateLookupRequest>|;

sub _parse_response
{
my( $self ) = @_;
#require 'Hash::AsObject';


        my %hash = ();
        foreach my $field ( $self->_fields )
                {
                my( $value ) = $self->response =~ m|<$field>(.*?)</$field>|g;


                $hash{$field} = $value || '';
                }


        bless \%hash, ref $self; # 'Hash::AsObject';
        }

TO DO

SOURCE AVAILABILITY

This source is part of a SourceForge project which always has the latest sources in CVS, as well as all of the previous releases.

        http://sourceforge.net/projects/brian-d-foy/

If, for some reason, I disappear from the world, one of the other members of the project can shepherd this module appropriately.

AUTHOR

brian d foy, <bdfoy@cpan.org>

COPYRIGHT AND LICENSE

You may redistribute this under the same terms as Perl itself.

sub _parse_response
	{
	my( $self ) = @_;
	#require 'Hash::AsObject';