Article: Extending the Business Value of SOA through Business Process Management
Business Process Management (BPM) is a natural complement to Service-Oriented Architecture (SOA), and a mechanism through which an organization can apply SOA to high-value business challenges. Both SOA and BPM can be pursued individually, but the two approaches in concert offer reciprocal benefits.
Business::PayPal::API::RefundTransaction(3pm) User Contributed Perl Documentation Business::PayPal::API::RefundTransaction(3pm)NAME
Business::PayPal::API::RefundTransaction - PayPal RefundTransaction API
SYNOPSIS
use Business::PayPal::API::RefundTransaction;
## see Business::PayPal::API documentation for parameters
my $pp = new Business::PayPal::API::RefundTransaction ( ... );
my %response = $pp->RefundTransaction( TransactionID => $transid,
RefundType => 'Full',
Memo => "Please come again!" );
DESCRIPTION
Business::PayPal::API::RefundTransaction implements PayPal's RefundTransaction API using SOAP::Lite to make direct API calls to PayPal's
SOAP API server. It also implements support for testing via PayPal's sandbox. Please see Business::PayPal::API for details on using the
PayPal sandbox.
RefundTransaction
Implements PayPal's RefundTransaction API call. Supported parameters include:
TransactionID
RefundType (defaults to 'Full' if not supplied)
Amount
Memo
currencyID (defaults to 'USD' if not supplied)
as described in the PayPal "Web Services API Reference" document. The default currencyID setting is 'USD' if not otherwise specified. The
default RefundType setting is 'Full' if not otherwise specified.
If RefundType is set to 'Full', Amount is ignored (even if set). If RefundType is set to 'Partial', Amount is required.
Returns a hash containing the results of the transaction. The Ack element is likely the only useful return value at the time of this
revision (the Nov. 2005 errata to the Web Services API indicates that the documented fields 'TransactionID', 'GrossAmount', etc. are not
returned with this API call).
Example:
my %resp = $pp->RefundTransaction( TransactionID => $trans_id,
RefundType => 'Partial',
Amount => '15.00', );
unless( $resp{Ack} !~ /Success/ ) {
for my $error ( @{$response{Errors}} ) {
warn "Error: " . $error->{LongMessage} . "
";
}
}
ERROR HANDLING
See the ERROR HANDLING section of Business::PayPal::API for information on handling errors.
EXPORT
None by default.
SEE ALSO
<https://developer.paypal.com/en_US/pdf/PP_APIReference.pdf>
AUTHOR
Scot Wiersdorf <scott@perlcode.org>
COPYRIGHT AND LICENSE
Copyright (C) 2006 by Scott Wiersdorf
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.5 or,
at your option, any later version of Perl 5 you may have available.
perl v5.14.2 2009-12-07 Business::PayPal::API::RefundTransaction(3pm)
