The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

use strict;
our $VERSION = '0.010008'; # VERSION
use Moose;
sub BUILD { ## no critic ( Subroutines::RequireFinalReturn )
my $self = shift;
die ## no critic ( ErrorHandling::RequireCarping )
use_module('Business::CyberSource::Exception::AttributeIsRequiredNotToBeSet')
->new(
attribute_name => 'request_id',
class_name => __PACKAGE__,
message => 'a Follow On Credit should set a request_id',
) unless $self->service->has_request_id;
};
__PACKAGE__->meta->make_immutable;
1;
# ABSTRACT: CyberSource Credit Request Object
__END__
=pod
=encoding UTF-8
=head1 NAME
Business::CyberSource::Request::FollowOnCredit - CyberSource Credit Request Object
=head1 VERSION
version 0.010008
=head1 SYNOPSIS
use Business::CyberSource::Request::FollowOnCredit;
my $credit = Business::CyberSource::Request::FollowOnCredit->new({
reference_code => 'merchant reference code',
purchase_totals => {
total => 5.00,
discount => 0.05,
duty => 0.01,
currency => 'USD',
},
service => {
request_id => 'capture request_id',
},
});
=head1 DESCRIPTION
Follow-On credit Data Transfer Object.
=head2 EXTENDS
L<Business::CyberSource::Request::Credit>
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website
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.
=head1 AUTHOR
Caleb Cushing <xenoterracide@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2017 by Caleb Cushing <xenoterracide@gmail.com>.
This is free software, licensed under:
The Artistic License 2.0 (GPL Compatible)
=cut