Business-CyberSource
view release on metacpan or search on metacpan
lib/Business/CyberSource/Response.pm view on Meta::CPAN
isa => Reply,
remote_name => 'ccCaptureReply',
is => 'ro',
predicate => 'has_capture',
coerce => 1,
);
has credit => (
isa => Reply,
remote_name => 'ccCreditReply',
is => 'ro',
predicate => 'has_credit',
coerce => 1,
);
has auth_reversal=> (
isa => Reply,
remote_name => 'ccAuthReversalReply',
is => 'ro',
predicate => 'has_auth_reversal',
coerce => 1,
);
has dcc => (
isa => DCCReply,
remote_name => 'ccDCCReply',
is => 'ro',
predicate => 'has_dcc',
coerce => 1,
);
has tax => (
isa => TaxReply,
remote_name => 'taxReply',
is => 'ro',
predicate => 'has_tax',
coerce => 1,
);
__PACKAGE__->meta->make_immutable;
1;
# ABSTRACT: Response Object
__END__
=pod
=encoding UTF-8
=head1 NAME
Business::CyberSource::Response - Response Object
=head1 VERSION
version 0.010008
=head1 SYNOPSIS
use Try::Tiny;
my $response
= try {
$client->run_transaction( $request )
}
catch {
if ( blessed $_
&& $_->isa('Business::CyberSource::Response::Exception')
) {
if ( $_->is_error ) {
# probably a temporary error on cybersources problem retry
}
}
else {
# log it and investigate
}
};
if ( $response->is_accept ) {
if ( $response->has_auth ) {
# pass to next request or store
$response->request_id;
$response->reference_code;
}
}
elsif ( $response->is_reject ) {
# log it
$response->request_id;
$response->reason_text;
}
else {
# throw exception
}
=head1 DESCRIPTION
This response can be used to determine the success of a transaction,
as well as receive a follow up C<request_id> in case you need to do further
actions with this.
=head1 EXTENDS
L<Business::CyberSource::Message>
=head1 WITH
=over
=item L<Business::CyberSource::Role::RequestID>
=back
=head1 ATTRIBUTES
=head2 is_accept
boolean way of determining whether the transaction was accepted
=head2 is_reject
( run in 0.895 second using v1.01-cache-2.11-cpan-39bf76dae61 )