Yet Another CPAN Grep

WebService-SwigClient ( L/LO/LOGIE/WebService-SwigClient-0.001.tar.gz, LOGIE, 2014; MetaCPAN )

WebService-SwigClient/lib/WebService/SwigClient.pm ( view source; MetaCPAN )

package WebService::SwigClient;
use Moo;

our $VERSION = '0.001';

use JSON::XS qw(encode_json);
use WWW::Curl::Easy;

has api_key     => ( required => 0, is => 'rw' );
has service_url => ( required =

->setopt(CURLOPT_POST, 1);
  $render_curl->setopt(CURLOPT_HTTPHEADER, ['Content-Type: application/json']);
  return $render_curl;
});

has error_handler => ( is => 'rw' );

{
  my $singleton;
  sub in

ncode_json($data));
}

sub create_template {
  my ($self, $filename, $data) = @_;

  my $url = join('/',($self->service_url, $self->api_key, $filename)); 

  return $self->post($url, encode_json($data