File Coverage

blib/lib/IO/IPFinder.pm

Criterion	Covered	Total	%
statement	80	111	72.0
branch	2	8	25.0
condition			n/a
subroutine	27	32	84.3
pod	1	11	9.0
total	110	162	67.9

package IO::IPFinder;

use 5.026001;
use strict;
use warnings;
use JSON qw(encode_json decode_json);
use URI::Escape; # FOR uri_escape($val)
use LWP::UserAgent; # call
use IO::Info; # FOR print
use IO::Validation::Asnvalidation;
use IO::Validation::Domainvalidation;
use IO::Validation::Firewallvalidation;
use IO::Validation::Ipvalidation;
use IO::Validation::Tokenvalidation;

our $VERSION = '1.0';

use constant DEFAULT_BASE_URL => 'https://api.ipfinder.io/v1/';

use constant DEFAULT_API_TOKEN => 'free';

use constant FORMAT => 'json';

use constant STATUS_PATH => 'info';

use constant RANGES_PATH => 'ranges/';

use constant FIREWALL_PATH => 'firewall/';

use constant DOMAIN_PATH => 'domain/';

use constant DOMAIN_H_PATH => 'domainhistory/';

use constant DOMAIN_BY_PATH => 'domainby/';



# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

# This allows declaration	use IO::IPFinder ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.

# Preloaded methods go here.


#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub new {
    my ($class, $token, $baseUrl) = @_;

    my $self = {};



	if (defined($token)) {
      IO::Validation::Tokenvalidation->validate($token);
	  $self->{token} = $token;
	}
	else {
	 $self->{token} = DEFAULT_API_TOKEN;
	}

	if (defined($baseUrl)) {
	  $self->{baseUrl} = $baseUrl;
	}
	else {
	  $self->{baseUrl} = DEFAULT_BASE_URL;
	}
    bless $self, $class;

    return $self;
}
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub call {

	my ($self, $path,$format) = @_;



	if (defined($format)) {
	  $self->{format} = $format;
	}
	else {
	 $self->{format} = FORMAT;
	}

	$self->{ua} = LWP::UserAgent->new;
	$self->{ua}->default_headers(HTTP::Headers->new(
	    Accept => 'application/json'
	));
	$self->{ua}->agent("IPFinder-Client/Perl/$VERSION");

	my $url = $self->{baseUrl}.$path;
	my $data = {
          token => $self->{token},
          format   => $self->{format},
	};
	my $fields = encode_json($data);

    my $response = $self->{ua}->post($url, Content => $fields);
	  if ($response->is_success)
	  {
	    $self->{body} =  decode_json($response->decoded_content);

	  }
	  else {
	  	$self->{body} = print("ERROR: " . $response->status_line() . $response->decoded_content);
	  }

	  return  IO::Info->new($self->{body});
}
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub Authentication {
	my ($self) = @_;
	return $self->call('', '');
}
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub getAddressInfo {
	my ($self, $path) = @_;
    IO::Validation::Ipvalidation->validate($path);
	return $self->call($path);
}
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub getAsn {
	my ($self, $path) = @_;
    IO::Validation::Asnvalidation->validate($path);
	return $self->call($path);
}
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub getStatus {
	my ($self) = @_;
	return $self->call(STATUS_PATH);
}
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub getRanges {
	my ($self, $path) = @_;
	return $self->call(RANGES_PATH.uri_escape($path));
}
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub getFirewall {
	my ($self, $path,$formats) = @_;
    IO::Validation::Firewallvalidation->validate($path,$formats);
	return $self->call(FIREWALL_PATH.$path,$formats);
}
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub getDomain {
	my ($self, $path) = @_;
    IO::Validation::Domainvalidation->validate($path);
	return $self->call(DOMAIN_PATH.$path);
}
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub getDomainHistory {
	my ($self, $path) = @_;
    IO::Validation::Domainvalidation->validate($path);
	return $self->call(DOMAIN_H_PATH.$path);
}
#-------------------------------------------------------------------------------

#-------------------------------------------------------------------------------
#-------------------------------------------------------------------------------
sub getDomainBy {
	my ($self, $by) = @_;
	return $self->call(DOMAIN_BY_PATH.$by);
}
#-------------------------------------------------------------------------------




1;
__END__