File Coverage

blib/lib/WWW/PayPal.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	1	2	50.0
condition			n/a
subroutine	13	14	92.8
pod			n/a
total	43	46	93.4

package WWW::PayPal;

# ABSTRACT: Perl client for the PayPal REST API

use Moo;
use Carp qw(croak);
use WWW::PayPal::API::Orders;
use WWW::PayPal::API::Payments;
use WWW::PayPal::API::Products;
use WWW::PayPal::API::Plans;
use WWW::PayPal::API::Subscriptions;
use namespace::clean;

our $VERSION = '0.001';


has client_id => (
    is      => 'ro',
    default => sub { $ENV{PAYPAL_CLIENT_ID} },
);


has secret => (
    is      => 'ro',
    default => sub { $ENV{PAYPAL_SECRET} },
);


has sandbox => (
    is      => 'ro',
    default => sub { $ENV{PAYPAL_SANDBOX} ? 1 : 0 },
);


has base_url => (
    is      => 'lazy',
    builder => sub {
        $_[0]->sandbox
            ? 'https://api-m.sandbox.paypal.com'
            : 'https://api-m.paypal.com';
    },
);


with 'WWW::PayPal::Role::HTTP';

has orders => (
    is      => 'lazy',
    builder => sub { WWW::PayPal::API::Orders->new(client => $_[0]) },
);


has payments => (
    is      => 'lazy',
    builder => sub { WWW::PayPal::API::Payments->new(client => $_[0]) },
);


has products => (
    is      => 'lazy',
    builder => sub { WWW::PayPal::API::Products->new(client => $_[0]) },
);


has plans => (
    is      => 'lazy',
    builder => sub { WWW::PayPal::API::Plans->new(client => $_[0]) },
);


has subscriptions => (
    is      => 'lazy',
    builder => sub { WWW::PayPal::API::Subscriptions->new(client => $_[0]) },
);



1;

__END__