File Coverage

blib/lib/WWW/PerlTricksIP.pm

Criterion	Covered	Total	%
statement	20	21	95.2
branch	1	2	50.0
condition	0	4	0.0
subroutine	7	7	100.0
pod	1	1	100.0
total	29	35	82.8

use strict;
use warnings;
package WWW::PerlTricksIP;
$WWW::PerlTricksIP::VERSION = '0.01';
use HTTP::Tiny;
use 5.008;

# ABSTRACT: Returns your ip address using L


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


sub get_ip {
    my $response = HTTP::Tiny->new->get('http://perltricks.com/services/echo_ip');
    return $response->{content} if $response->{success};
    die join(' ', 'Error fetching ip: ',
                  ($response->{status} or ''),
                  ($response->{reason} or ''));
}


1;

__END__