File Coverage

blib/lib/WWW/YahooMaps.pm

Criterion	Covered	Total	%
statement	9	65	13.8
branch	0	24	0.0
condition	0	6	0.0
subroutine	3	9	33.3
pod	4	6	66.6
total	16	110	14.5

package WWW::YahooMaps;

require 5.005_62;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our $VERSION = '0.3';

use URI::Escape;

sub stringtolink {

    my ($country, $language, $string, $swap) = @_;

    $string =~ m@^([^\;\n]+)[\;\n]+([^\;\n]+)@s;
    my ($street, $city) = ($1, $2);

    if ($swap) {
	($street, $city) = ($city, $street);
    }

    my %addr = (
		"street" => $street,
		"city" => $city,
		"country" => $country,
		"language" => "us",
		);

    my $url = hashreftolink(\%addr);

    return $url;
}

sub hashreftolink {
    my ($rh_addr) = @_;

    $rh_addr->{language} = "us";

    #test if the language we want exists, whether we have given at least a country and a city
    if (&testlang($rh_addr->{language})  &&
        &testcountry($rh_addr->{country}) &&
        &cleanstring($rh_addr->{city})) {

        $rh_addr->{language} = &ukcheck($rh_addr->{language});
        $rh_addr->{country} = &ukcheck($rh_addr->{country});

	#special treatment for canada and US
	if ($rh_addr->{country} eq "ca") {
	    $rh_addr->{language} = "ca";
	} elsif ($rh_addr->{country} eq "us") {
	    $rh_addr->{language} = "us";
	}

	#take care of US dot-related issues
	my $langdot = '';

	if ($rh_addr->{language} eq "us") {
	    $rh_addr->{language} = "";
	} else {
	    $langdot = '.';
	}

        my $url = "";
        $url  = "http://" . $rh_addr->{language} . $langdot . "maps.yahoo.com";

	$url .= "/py";

	if ($rh_addr->{country} ne "ca") {
	    $url .= "/lg:" . $rh_addr->{language};
	    $url .= "/lc:" . $rh_addr->{language};
	}

	$url .= "/maps_result?BFCat=&Pyt=Tmap&newFL=";

        # street
        if ($rh_addr->{street}){
	    my $street = cleanstring($rh_addr->{street});
	    $street = uri_escape($street);
	    $url .= "&addr=" . $street;
        }

        # city
        my $city = cleanstring($rh_addr->{city});
        $city = uri_escape($city);
        $url .= "&csz=" . $city;

        # country
        $url .= "&country=" . $rh_addr->{country};

	return $url;

    } else {
	return 0;
    }

}

sub ukcheck {
    # needed because "uk" is not a ISO 3166 code
    # "gb" is the code, but Yahoo! uses uk

    my ($string) = @_;
    if ($string eq "gb"){
        return "uk";
    } else {
        return $string;
    }
}

sub testlang {

    my ($lang)  = @_;

    if ($lang){
	# list of languages in which Yahoo offers maps
	my %langs = (
		     "us" => 1,
		     );
	return $langs{$lang} ? 1 : 0 ;
    } else {
        return 0;
    }
}

sub testcountry {
    my ($cty)  = @_;

    if ($cty){
	# list of countries for which Yahoo has maps
	my %ctys = (
		    "ca" => 1,
		    "us" => 1,
		    );
	return $ctys{$cty} ? 1 : 0 ;
    } else {
        return 0;
    }
}

sub cleanstring {
    #remove unecessary whitespace
    my ($string) = @_;
    $string =~ s@\n@ @g;
    $string =~ s@^\s+@@g;
    $string =~ s@\s+$@@g;
    return $string;
}



1;

__END__