Yet Another CPAN Grep

ServiceNow-JSON ( K/KK/KKANE/ServiceNow-JSON-0.02.tar.gz, KKANE, 2019; MetaCPAN )

ServiceNow-JSON/lib/ServiceNow/JSON.pm ( view source; MetaCPAN )

package ServiceNow::JSON;
use Moose;
use REST::Client;
use MIME::Base64;
use JSON;

our $VERSION = 0.02;

has 'instance' => (
    is => 'rw',
    isa => 'Str',
);

has 'user' => (
    is => 'rw',

, $table, $action, $json ) = @_;

    my $api_version = "JSONv2";

    $api_version = "JSON" if $self->legacy;
    
    my $url = $table . ".do?$api_version&$action";

    if( $json ) {
        $self-

>client->POST( $url, to_json( $json ), { "Content-type" => 'application/json' } );
        if( $self->client->responseCode != 200 ) {
            print STDERR "ERROR!\n";
            print STDERR $sel