File Coverage

blib/lib/WWW/PayPal.pm

Criterion	Covered	Total	%
statement	63	65	96.9
branch	17	28	60.7
condition	4	7	57.1
subroutine	18	19	94.7
pod	2	2	100.0
total	104	121	85.9

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.002';


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]) },
);


sub js_sdk_url {
    my ($self, %args) = @_;
    croak 'client_id required' unless $self->client_id;

    my %p = (
        'client-id' => $self->client_id,
        intent      => lc($args{intent} // 'capture'),
    );
    $p{currency}     = uc $args{currency}     if $args{currency};
    $p{locale}       = $args{locale}          if $args{locale};
    $p{'disable-funding'} = _join_list($args{disable_funding}) if $args{disable_funding};
    $p{'enable-funding'}  = _join_list($args{enable_funding})  if $args{enable_funding};
    $p{components}   = _join_list($args{components} // ['buttons']);
    $p{vault}        = 'true' if $args{vault};
    $p{'merchant-id'}    = $args{merchant_id}    if $args{merchant_id};
    $p{'buyer-country'}  = $args{buyer_country}  if $args{buyer_country} && $self->sandbox;
    $p{debug}        = 'true' if $args{debug};

    # Extra opaque params (e.g. data-partner-attribution-id is an HTML attr,
    # not a URL param, so we don't mix those in).
    if (my $extra = $args{params}) {
        $p{$_} = $extra->{$_} for keys %$extra;
    }

    my $qs = join('&',
        map { _uri_escape($_) . '=' . _uri_escape($p{$_}) }
        sort grep { defined $p{$_} } keys %p
    );
    return 'https://www.paypal.com/sdk/js?' . $qs;
}


sub js_sdk_script_tag {
    my ($self, %args) = @_;
    my $url = $self->js_sdk_url(%args);
    return '';
}

sub _join_list {
    my ($v) = @_;
    return ref $v eq 'ARRAY' ? join(',', @$v) : $v;
}

sub _uri_escape {
    my ($s) = @_;
    $s = '' unless defined $s;
    $s =~ s/([^A-Za-z0-9\-._~])/sprintf('%%%02X', ord($1))/ge;
    return $s;
}

sub _html_escape {
    my ($s) = @_;
    $s = '' unless defined $s;
    $s =~ s/&/&/g;
    $s =~ s/
    $s =~ s/>/>/g;
    $s =~ s/"/"/g;
    return $s;
}


1;

__END__