Yet Another CPAN Grep

Net-Zendesk ( G/GA/GARU/Net-Zendesk-0.02.tar.gz, GARU, 2018; MetaCPAN )

Net-Zendesk/lib/Net/Zendesk.pm ( view source; MetaCPAN )

package Net::Zendesk;
use strict;
use warnings;
use MIME::Base64;
use JSON::MaybeXS;

our $VERSION = '0.02';

sub new {
    my ($class, %args) = @_;
    die 'please provide a zendesk domain name (e.g.

  }, $class;
}

sub create_ticket {
    my ($self, $ticket, %extra) = @_;
    my $path = 'tickets.json';
    if (%extra) {
        $path .= '?' . join('&', map("$_=$extra{$_}", keys %extra));
    }

I::Escape::uri_escape(join(' ' => @$parsed_args));

    return $self->make_request('GET', 'search.json?query=' . $query, {});
}

sub make_request {
    my ($self, $type, $path, $params) = @_;
    die