Yet Another CPAN Grep

Opsview-RestAPI ( D/DU/DUNCS/Opsview-RestAPI-1.251900.tar.gz, DUNCS, 2025; MetaCPAN )

Opsview-RestAPI/lib/Opsview/RestAPI.pm ( view source; MetaCPAN )

Rest API interface

use version;
use Data::Dump qw(pp);
use Carp qw(croak);
use REST::Client;
use JSON;
use URI::Encode::XS qw(uri_encode);

use Opsview::RestAPI::Exception;


sub new {
    my ( $clas

self->{json} = JSON->new->allow_nonref;

    $self->{client} = REST::Client->new();
    $self->_client->setHost( $self->{url} );
    $self->_client->addHeader( 'Content-Type', 'application/json' );

self;
}

# internal convenience functions
sub _client { return $_[0]->{client} }
sub _json   { return $_[0]->{json} }

sub _log {
    my ( $self, $level, @message ) = @_;
    say scalar(localtime), ':