File Coverage

blib/lib/Geo/Details.pm
Criterion Covered Total %
statement 8 27 29.6
branch n/a
condition n/a
subroutine 3 19 15.7
pod 0 16 0.0
total 11 62 17.7


line stmt bran cond sub pod time code
1             package Geo::Details;
2              
3 1     1   18 use 5.006;
  1         9  
4 1     1   5 use strict;
  1         2  
  1         31  
5 1     1   5 use warnings;
  1         2  
  1         395  
6              
7             sub new {
8 0     0 0   my $class = shift;
9 0           my $self = shift;
10              
11 0           bless $self, $class;
12              
13 0           return $self;
14             }
15              
16             sub ip {
17 0     0 0   return $_[0]->{"ip"};
18             }
19              
20             sub hostname {
21 0     0 0   return $_[0]->{"hostname"};
22             }
23              
24             sub city {
25 0     0 0   return $_[0]->{"city"};
26             }
27              
28             sub region {
29 0     0 0   return $_[0]->{"region"};
30             }
31              
32             sub country {
33 0     0 0   return $_[0]->{"country"};
34             }
35              
36             sub country_name {
37 0     0 0   return $_[0]->{"country_name"};
38             }
39              
40             sub loc {
41 0     0 0   return $_[0]->{"loc"};
42             }
43              
44             sub latitude {
45 0     0 0   return $_[0]->{"latitude"};
46             }
47              
48             sub longitude {
49 0     0 0   return $_[0]->{"longitude"};
50             }
51              
52             sub postal {
53 0     0 0   return $_[0]->{"postal"};
54             }
55              
56             sub asn {
57 0     0 0   return $_[0]->{"asn"};
58             }
59              
60             sub company {
61 0     0 0   return $_[0]->{"company"};
62             }
63              
64             sub carrier {
65 0     0 0   return $_[0]->{"carrier"};
66             }
67              
68             sub meta {
69 0     0 0   return $_[0]->{"meta"};
70             }
71              
72             sub all {
73 0     0 0   return $_[0];
74             }
75              
76             #-------------------------------------------------------------------------------
77              
78             1;
79             __END__