File Coverage

blib/lib/WWW/ipinfo.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	3	4	75.0
condition	0	4	0.0
subroutine	8	8	100.0
pod	1	1	100.0
total	38	43	88.3

use strict;
use warnings;
package WWW::ipinfo;
$WWW::ipinfo::VERSION = '0.04';
use HTTP::Tiny;
use 5.008;
use JSON;

# ABSTRACT: Returns your ip address and geolocation data using L


BEGIN {
    require Exporter;
    use base 'Exporter';
    our @EXPORT = 'get_ipinfo';
    our @EXPORT_OK = ();
}



sub get_ipinfo {
    my $ip = shift;
    my $url = $ip ? "http://ipinfo.io/$ip/json" : "http://ipinfo.io/json";
    my $response = HTTP::Tiny->new->get($url);
    die join(' ', 'Error fetching ip: ',
                  ($response->{status} or ''),
                  ($response->{reason} or '')) unless $response->{success};
   decode_json($response->{content});
}



1;

__END__