View on
MetaCPAN
Olaf Alders > WebService-PayPal-NVP-0.006 > WebService::PayPal::NVP

Download:
WebService-PayPal-NVP-0.006.tar.gz

Dependencies

Annotate this POD

Website

View/Report Bugs
Module Version: 0.006   Source  

NAME ^

WebService::PayPal::NVP - PayPal NVP API

VERSION ^

version 0.006

SYNOPSIS ^

    use feature qw( say );

    my $nvp = WebService::PayPal::NVP->new(
        user   => 'user.tld',
        pwd    => 'xxx',
        sig    => 'xxxxxxx',
        branch => 'sandbox',
    );

    my $res = $nvp->set_express_checkout({
        DESC              => 'Payment for something cool',
        AMT               => 25.00,
        CURRENCYCODE      => 'GBP',
        PAYMENTACTION     => 'Sale',
        RETURNURL         => "http://returnurl.tld",
        CANCELURL         => "http//cancelurl.tld",
        LANDINGPAGE       => 'Login',
        ADDOVERRIDE       => 1,
        SHIPTONAME        => "Customer Name",
        SHIPTOSTREET      => "7 Customer Street",
        SHIPTOSTREET2     => "",
        SHIPTOCITY        => "Town",
        SHIPTOZIP         => "Postcode",
        SHIPTOEMAIL       => "customer\@example.com",
        SHIPTOCOUNTRYCODE => 'GB',
    });

    if ($res->success) {
        # timestamps turned into DateTime objects
        say "Response received at "
            . $res->timestamp->dmy . " "
            . $res->timestamp->hms(':');

        say $res->token;

        for my $arg ($res->args) {
            if ($res->has_arg($arg)) {
                say "$arg => " . $res->$arg;
            }
        }

        # get a redirect uri to paypal express checkout
        # the Response object will automatically detect if you have
        # live or sandbox and return the appropriate url for you
        if (my $redirect_user_to = $res->express_checkout_uri) {
            ...;
        }
    }
    else {
        say $_
          for @{$res->errors};
    }

DESCRIPTION ^

A pure object oriented interface to PayPal's NVP API (Name-Value Pair). A lot of the logic in this module was taken from Business::PayPal::NVP. I re-wrote it because it wasn't working with Catalyst adaptors and I couldn't save instances of it in Moose-type accessors. Otherwise it worked fine. So if you don't need that kind of support you should visit Business::PayPal::NVP!. Another difference with this module compared to Business::PayPal::NVP is that the keys may be passed as lowercase. Also, a response will return a WebService::PayPal::NVP::Response object where the response values are methods. Timestamps will automatically be converted to DateTime objects for your convenience.

METHODS ^

api_ver

The version of PayPal's NVP API which you would like to use. Defaults to 51.

errors

Returns an ArrayRef of errors. The ArrayRef is empty when there are no errors.

has_errors

Returns true if errors() is non-empty.

create_recurring_payments_profile( $HashRef )

do_direct_payment( $HashRef )

do_express_checkout_payment( $HashRef )

get_express_checkout_details( $HashRef )

get_recurring_payments_profile_details( $HashRef )

get_transaction_details( $HashRef )

manage_recurring_payments_profile_status( $HashRef )

mass_pay( $HashRef )

refund_transaction( $HashRef )

set_express_checkout( $HashRef )

transaction_search( $HashRef )

ua( LWP::UserAgent->new( ... ) )

This method allows you to provide your own UserAgent. This object must be of the LWP::UserAgent family, so WWW::Mechanize modules will also work.

url

The PayPal URL to use for requests. This can be helpful when mocking requests. Defaults to PayPals production or sandbox URL as appropriate.

TESTING ^

The main test will not work out of the box, because obviously it needs some sandbox/live api details before it can proceed. Simply create an auth.yml file in the distribution directory with the following details:

    ---
    user: 'api_user'
    pass: 'api password'
    sig:  'api signature'
    branch: 'sandbox or live'

If it detects the file missing completely it will just skip every test. Otherwise, it will only fail if any of the required information is missing.

AUTHOR ^

Brad Haywood <brad@geeksware.com>

CREDITS ^

A lot of this module was taken from Business::PayPal::NVP by Scott Wiersdorf. It was only rewritten in order to work properly in Catalyst::Model::Adaptor.

THANKS

A huge thanks to Olaf Alders (OALDERS) for all of his useful pull requests!

AUTHOR ^

Brad Haywood <brad@perlpowered.com>

COPYRIGHT AND LICENSE ^

This software is copyright (c) 2013-2017 by Brad Haywood.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

syntax highlighting: