view release on metacpan or  search on metacpan

cve-client  view on Meta::CPAN

	exit 1;
}

sub fetch_cve {
	my ($cve_id) = @_;
	my $url = 'https://cveawg.mitre.org/api/cve/' . $cve_id;

	#print "Fetching: ", $url, "\n";
	my $ua = LWP::UserAgent->new;
	$ua->agent("CVE-Client fetch <https://hacktivis.me/git/cve-client/>");
	my $req = HTTP::Request->new(GET => $url);

	#$req->header('Accept' => 'application/json');

	my $res = $ua->request($req);

	my $format = $options{g} ? 'gemini' : 'plain';

	if ($res->is_success) {
		my $content_type  = $res->header("Content-Type");
		my $content_match = 'application/json';