Yet Another CPAN Grep

WebService-Leanpub ( M/MA/MAMAWE/WebService-Leanpub-v0.3.1.tar.gz, MAMAWE, 2021; MetaCPAN )

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


use strict;
use Carp;

use version; our $VERSION = qv('v0.3.1');

use HTTP::Request::Common;
use JSON;
use LWP::UserAgent;
use URI::Escape;

# Module implementation here

my $lpurl = 'https://leanpub

  = LWP::UserAgent->new(
	agent => "libwebservice-leanpub-perl/$VERSION",
    );
    $self->{json}    = JSON->new;

    return $self;
} # new()

#----- coupons -----
sub create_coupon {
    my ($self,

equest( { path => '/coupons.json', var => $var } );
} # create_coupon()

sub get_coupon_list {
    my ($self) = @_;

    return $self->_get_request( { path => '/coupons.json' } );

} # get_coupon_list