File Coverage

blib/lib/Net/OSV.pm

Criterion	Covered	Total	%
statement	22	41	53.6
branch	0	6	0.0
condition			n/a
subroutine	8	11	72.7
pod	4	4	100.0
total	34	62	54.8

use v5.20;
use warnings;
use feature 'signatures';
no warnings qw(experimental::signatures);

use JSON ();
use HTTP::Tiny;

our $VERSION = '0.0.1';

package Net::OSV {
  sub new ($class) {
    return bless { ua => _build_user_agent() }, $class;
  }

  sub query ($self, %options) {
    my $res = $self->{ua}->request(
      'POST',
      'https://api.osv.dev/v1/query',
      { content => JSON::encode_json(\%options) },
    );
    return $res->{success} ? (JSON::decode_json($res->{content}))->{vulns}->@* : ();
  }

  sub query_batch ($self, @queries) {
    my %options = (queries => \@queries);
    my $res = $self->{ua}->request(
      'POST',
      'https://api.osv.dev/v1/querybatch',
      { content => JSON::encode_json(\%options) },
    );
    return $res->{success} ? (JSON::decode_json($res->{content}))->{results}->@* : ();
  }

  sub vuln ($self, $id) {
    my $res = $self->{ua}->request('GET', 'https://api.osv.dev/v1/vulns/' . $id);
    return $res->{success} ? JSON::decode_json($res->{content}) : undef;;
  }

  sub _build_user_agent {
    return HTTP::Tiny->new(
      agent      => __PACKAGE__ . '/' . $VERSION,
      verify_SSL => 1,
    );
  }
};

1;
__END__