package Net::Nessus::REST;
use warnings;
use strict;
use Carp;
use LWP::UserAgent;
use JSON;
use List::Util qw(first);
use version; our $VERSION = version->declare('v0.7.0');
sub new {
my ($cl
query_form(%params);
my $response = $self->{agent}->get($url);
my $result = eval { from_json($response->content()) };
if ($response->is_success()) {
return $result;
} else {
;
my $response = $self->{agent}->delete($self->{url} . $path);
my $result = eval { from_json($response->content()) };
if ($response->is_success()) {
return $result;
} else {