package JIRA::REST::Lite;
use strict;
use warnings;
use JSON;
use REST::Client;
use MIME::Base64;
our $VERSION = '0.08';
sub new {
my ($class, $args) = @_;
my $self = {
url =>
$auth = encode_json({ username => $args->{username}, password => $args->{password} });
$self->{client}->POST('/rest/auth/1/session', $auth, { 'Content-Type' => 'application/json' });
} els
self;
}
sub GET {
my ($self, $path) = @_;
$self->{client}->GET($path);
return decode_json($self->{client}->responseContent());
}
sub set_search_iterator {
my ($self, $params) = @_;