e warnings;
use feature 'signatures';
no warnings qw(experimental::signatures);
use Carp ();
use JSON ();
use HTTP::Tiny;
our $VERSION = '0.0.3';
package Net::NVD {
sub new ($class, %args) {
/json/cves/2.0?' . _build_url_params($self->{ua}, %params));
if ($res->{success}) {
my $json = JSON::decode_json($res->{content});
return $self->{format} eq 'complete'
? $json
: map $_->{cve}, $json->{vulnerabilities}->@*;
}
Carp::carp($res->{headers}{message} // "error querying NVD service ($res->{status})");
return ();
}
sub _build_user_agent($api_key) {