File Coverage

blib/lib/WWW/curlmyip.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition	0	4	0.0
subroutine	7	7	100.0
pod	1	1	100.0
total	32	37	86.4

use strict;
use warnings;
package WWW::curlmyip;
$WWW::curlmyip::VERSION = '0.02';
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://curlmyip.com');
    die join(' ', 'Error fetching ip: ',
                  ($response->{status} or ''),
                  ($response->{reason} or '')) unless $response->{success};
    my $ip = $response->{content};
    chomp $ip;
    $ip;
}

1;

__END__