File Coverage

blib/lib/Webservice/InternetDB/API.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	36	36	100.0

package Webservice::InternetDB::API;


use strict;
use warnings;

use Feature::Compat::Class;
use Feature::Compat::Try;
use feature 'signatures';
no warnings 'experimental::signatures';

our $VERSION = '1.005';

class Webservice::InternetDB::API;

use HTTP::Tiny;
use JSON::PP;
use Carp;

field $ua = HTTP::Tiny->new(timeout => 7);
field $base = "https://internetdb.shodan.io/";


method get ($address //= ""){
    my $response = $ua->get("$base$address");

    # croak on errors with nice error messages
    if( !$response->{success}  ){

        if( $response->{'headers'}{'content-type'} =~ /json/ ){

            croak $response->{status}." ".decode_json($response->{content})->{detail} ;

        }else{

            croak $response->{status}." ".$response->{content} ;
        }

    }

    try{
        $response->{content} = decode_json($response->{content});
    }catch($e){
        croak "unable to decode message from API ".$e;
    }

    return $response->{content};
}
1;

__END__