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

package Geo::Details;

use 5.006;
use strict;
use warnings;

sub new {
    my $class = shift;
    my $self = shift;

    bless $self, $class;

    return $self;
}

sub ip {
  return $_[0]->{"ip"};
}

sub hostname {
  return $_[0]->{"hostname"};
}

sub city {
  return $_[0]->{"city"};
}

sub region {
  return $_[0]->{"region"};
}

sub country {
  return $_[0]->{"country"};
}

sub country_name {
  return $_[0]->{"country_name"};
}

sub loc {
  return $_[0]->{"loc"};
}

sub latitude {
  return $_[0]->{"latitude"};
}

sub longitude {
  return $_[0]->{"longitude"};
}

sub postal {
  return $_[0]->{"postal"};
}

sub asn {
  return $_[0]->{"asn"};
}

sub company {
  return $_[0]->{"company"};
}

sub carrier {
  return $_[0]->{"carrier"};
}

sub meta {
  return $_[0]->{"meta"};
}

sub all {
  return $_[0];
}

#-------------------------------------------------------------------------------

1;
__END__