File Coverage

blib/lib/WebService/StreetMapLink/MapQuest.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	7	12	58.3
condition	4	8	50.0
subroutine	5	5	100.0
pod	2	2	100.0
total	47	56	83.9

package WebService::StreetMapLink::MapQuest;

use strict;

use Geography::States;

use base 'WebService::StreetMapLink';
__PACKAGE__->RegisterSubclass();


my %Query = ( usa    => { countryid => 'US',
                          country   => 'US',
                        },
              canada => { countryid => 41,
                          country   => 'CA',
                        },
            );

my @Accents = ( [ qr/[\xE0-\xE2]/ => 'a' ],
                [ qr/[\xE8-\xEA]/ => 'e' ],
                [ qr/\xE7/        => 'c' ],
                [ qr/\xF4/        => 'o' ],
              );

sub Countries { keys %Query }

sub new
{
    my $class = shift;
    my %p = @_;

    local $_;
    # remove accents from state names like Quebec or mapquest gets upset
    for ( grep { defined } values %p )
    {
        foreach my $p (@Accents)
        {
            s/$p->[0]/$p->[1]/g;
        }
    }

    if ( defined $p{state} )
    {
        if ( length $p{state} > 2 )
        {
            $p{state} = Geography::States->new( $p{country} )->state( $p{state} );
        }
    }

    return
        unless ( defined $p{address}
                 &&
                 ( ( defined $p{city} && defined $p{state} )
                   ||
                   defined $p{postal_code}
                 )
               );

    return if $p{address} =~ /p\.?o\.\s+box/i;

    my %query = %{ $Query{ $p{country} } };

    foreach my $k ( qw( address city state ) )
    {
        $query{$k} = $p{$k}
            if defined $p{$k};
    }

    $query{zip} = $p{postal_code}
        if defined $p{postal_code};

    $query{zoom} = $p{zoom} || 8;

    return bless { host  => 'www.mapquest.com',
                   path  => '/maps/map.adp',
                   query => \%query,
                 }, $class;
}


1;

__END__