Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

187 lines (152 sloc) 7.494 kb
NAME
Business::CyberSource - Perl interface to the CyberSource Simple Order
SOAP API
VERSION
version 0.007010
DESCRIPTION
This library is a Perl interface to the CyberSource Simple Order SOAP
API built on Moose and XML::Compile::SOAP technologies. This library
aims to eventually provide a full interface the SOAPI.
You may wish to read the Official CyberSource Documentation on Credit
Card Services for the Simpler Order API
<http://apps.cybersource.com/library/documentation/dev_guides/CC_Svcs_SO
_API/html/> as it will provide further information on why what some
things are and the general workflow.
To get started you will want to read the documentation in
Business::CyberSource::Client and Business::CyberSource::Request. If you
find any documentation unclear or outright missing, please file a bug.
If there are features that are part of CyberSource's API but are not
documented, or are missing here, please file a bug. I'll be happy to add
them, but due to the size of the upstream API, I have not had time to
cover all the features and some are currently undocumented.
ENVIRONMENT
all environment variables are prefixed with "PERL_BUSINESS_CYBERSOURCE_"
DEBUG
causes all requests to be "carp"ed to STDERR
Testing
Credentials
USERNAME
PASSWORD
set's the username and password in the client for running tests.
Direct Currency Conversion
DCC_CC_YYYY
sets the test credit card expiration year for both Visa and MasterCard
DCC_CC_MM
sets the test credit card expiration month for both Visa and MasterCard
DCC_MASTERCARD
A test credit card number provided by your your credit card processor
DCC_VISA
A test credit card number provided by your your credit card processor
EXAMPLE
use 5.010;
use Carp;
use Try::Tiny;
use Business::CyberSource::Client;
use Business::CyberSource::Request::Authorization;
use Business::CyberSource::Request::Capture;
my $client = Business::CyberSource::Client->new({
username => 'Merchant ID',
password => 'API Key',
production => 1,
});
my $auth_request = try {
Business::CyberSource::Request::Authorization->new({
reference_code => '42',
bill_to => {
first_name => 'Caleb',
last_name => 'Cushing',
street => '100 somewhere st',
city => 'Houston',
state => 'TX',
postal_code => '77064',
country => 'US',
email => 'xenoterracide@gmail.com',
},
purchase_totals => {
currency => 'USD',
total => 5.00,
},
card => {
account_number => '4111111111111111',
expiration => {
month => 9,
year => 2025,
},
},
});
}
catch {
carp $_;
};
my $auth_response = try {
$client->run_transaction( $auth_request );
}
catch {
carp $_;
if ( $auth_request->has_trace ) {
carp 'REQUEST: '
. $auth_request->trace->request->as_string
. 'RESPONSE: '
. $auth_request->trace->response->as_string
;
}
};
unless( $auth_response->is_accept ) {
carp $auth_response->reason_text;
}
else {
my $capture_request
= Business::CyberSource::Request::Capture->new({
reference_code => $auth_response->reference_code,
service => {
request_id => $auth_response->request_id,
},
purchase_totals => {
total => $auth_response->auth->amount,
currency => $auth_response->purchase_totals->currency,
},
});
my $capture_response = try {
$client->run_transaction( $capture_request );
}
catch {
carp $_;
if ( $capture_request->has_trace ) {
carp 'REQUEST: '
. $capture_request->trace->request->as_string
. 'RESPONSE: '
. $capture_request->trace->response->as_string
;
}
};
if ( $capture_response->is_accept ) {
# you probably want to record this
say $capture_response->capture->reconciliation_id;
}
}
This code is not meant to be DRY, but more of a top to bottom example.
Also note that if you really want to do Authorization and Capture at one
time use a Sale. Most common Reasons for Exceptions would be bad input
into the request object (which validates things) or CyberSource just
randomly throwing an ERROR, in which case you can usually just retry
later. You don't have to print the response on error during development,
you can easily just use the DEBUG Environment variable
ACKNOWLEDGMENTS
* Mark Overmeer
for the help with getting XML::Compile::SOAP::WSS working.
SEE ALSO
* Checkout::CyberSource::SOAP
* Business::OnlinePayment::CyberSource
BUGS
Please report any bugs or feature requests on the bugtracker website
https://github.com/hostgator/business-cybersource/issues or by email to
development@hostgator.com.
When submitting a bug or request, please include a test-file or a patch
to an existing test-file that illustrates the bug or desired feature.
AUTHOR
Caleb Cushing <xenoterracide@gmail.com>
COPYRIGHT AND LICENSE
This software is Copyright (c) 2012 by HostGator.com
<http://hostgator.com>.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
Jump to Line
Something went wrong with that request. Please try again.