File Coverage

blib/lib/WWW/IP.pm

Criterion	Covered	Total	%
statement	32	37	86.4
branch			n/a
condition			n/a
subroutine	12	13	92.3
pod	1	1	100.0
total	45	51	88.2

use strict;
use warnings;
package WWW::IP;
$WWW::IP::VERSION = '0.02';
use HTTP::Tiny;
use 5.008;
use WWW::hmaip ();
use WWW::PerlTricksIP ();
use WWW::ipinfo ();
use Try::Tiny;

# ABSTRACT: Returns your ip address with failsafe mechanism


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


sub get_ip {
  try {
    WWW::hmaip::get_ip();
  } catch {
    try {
      WWW::ipinfo::get_ipinfo->{ip};
    } catch {
      try {
        WWW::PerlTricksIP::get_ip();
      }
      catch {
        die $_;
      }
    }
  };
}


1;

__END__