File Coverage

blib/lib/Webservice/CVEDB/API.pm

Criterion	Covered	Total	%
statement	17	38	44.7
branch	0	8	0.0
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	23	54	42.5

package Webservice::CVEDB::API;
our $VERSION = '1.001';

use v5.40;
use feature 'class';
no warnings 'experimental::class';

class Webservice::CVEDB::API 1.001;

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

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

method get_cve ($cve_id){
    return fetch($self, "/cve/$cve_id");
}

method get_cpes (%params){
    return fetch($self, "/cpes?", \%params);
}

method get_cves (%params){
  return fetch($self, "/cves?", \%params);
}

sub fetch($self, $endpoint, $params //= ''){
    $params = $self->ua->www_form_urlencode( $params ) if $params;

    my $response = $self->ua->get($self->base.$endpoint.$params) or croak "$!";
    if (! $response->{success}){
        my %error;
        try{
            my $detail = decode_json($response->{content}) or croak "$!";
            $error{detail} = $detail->{detail}."\n";
            $error{success} = $response->{success};
        }catch($e){
            $error{detail} = $response->{content};
            $error{success} = $response->{success};
        }

        return \%error;
    }

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

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

__END__