File Coverage

blib/lib/WebService/PublicViewpoints.pm

Criterion	Covered	Total	%
statement	18	24	75.0
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	24	32	75.0

package WebService::PublicViewpoints;
use strict;
our $VERSION = '0.01';

package WebService::PublicViewpoints::Point;
use Object::Tiny qw{url country_code country state city lat lng};

package WebService::PublicViewpoints;
use URI;
use constant APP_URI => URI->new("http://public-viewpoints.appspot.com/get_viewpoint");

use LWP::Simple;
use Text::CSV::Slurp;

sub find {
    shift;
    my $uri = APP_URI->clone;
    $uri->query_form({@_, format => "csv"});
    return map { WebService::PublicViewpoints::Point->new(%$_) } @{ Text::CSV::Slurp->load(string => "url,country_code,country,state,city,lat,lng,,\n" . get($uri)) }
}

1;

__END__