File Coverage

blib/lib/WWW/IP.pm
Criterion Covered Total %
statement 27 28 96.4
branch 1 2 50.0
condition n/a
subroutine 9 9 100.0
pod 1 1 100.0
total 38 40 95.0


line stmt bran cond sub pod time code
1 1     1   27340 use strict;
  1         2  
  1         30  
2 1     1   3 use warnings;
  1         1  
  1         49  
3             package WWW::IP;
4             $WWW::IP::VERSION = '0.03';
5 1     1   636 use HTTP::Tiny;
  1         33055  
  1         29  
6 1     1   14 use 5.008;
  1         2  
7 1     1   417 use WWW::hmaip ();
  1         259  
  1         14  
8 1     1   346 use WWW::ipinfo ();
  1         11443  
  1         25  
9              
10             # ABSTRACT: Returns your ip address with failsafe mechanism
11              
12              
13             BEGIN {
14 1     1   3 require Exporter;
15 1     1   5 use base 'Exporter';
  1         0  
  1         61  
16 1         2 our @EXPORT = 'get_ip';
17 1         53 our @EXPORT_OK = ();
18             }
19              
20              
21             sub get_ip {
22 1     1 1 3 my $ip = eval { WWW::hmaip::get_ip() };
  1         4  
23 1 50       194830 if ($@)
24             {
25 0         0 $ip = WWW::ipinfo::get_ipinfo->{ip};
26             }
27 1         12 return $ip;
28             }
29              
30              
31             1;
32              
33             __END__