require 5.005;
-$VERSION = '3.03_01';
+$VERSION = '3.04_02';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
# Remember subclasses we have "wrapped" submit() with _pre_submit()
response_page
avs_code
cvv2_response
+ partial_auth
+ partial_auth_amount
);
+__PACKAGE__->build_subs(@methods);
+
#fallback
sub _info {
my $class = shift;
croak("unknown processor $processor ($@)") if $@;
my $self = bless {processor => $processor}, $subclass;
- $self->build_subs(@methods);
if($self->can("set_defaults")) {
$self->set_defaults(%data);
unless ( $@ =~ m/^Can\'t locate/ );
} else {
my $risk_tx = bless( { processor => $fraud_detection }, $subclass );
- $risk_tx->build_subs(@methods);
if ($risk_tx->can('set_defaults')) {
$risk_tx->set_defaults();
}
=over 4
+=item partial_auth
+
+Set true to accept a partial authorization. If this flag is not set, a partial
+authorization will be immediately reversed or voided.
+
=item description
A description of the transaction (used by some processors to send
Note that not all processor modules support this, and that if supported,
it may not be set for all declines.
+=head2 partial_auth_amount()
+
+Amount of the partial authorization, if the processor supports them and the
+partial_auth flag was passed to indicate they should be processed.
+
=head2 authorization()
If the transaction has been submitted and accepted, this function will
Copyright (c) 1999-2004 Jason Kohles
Copyright (c) 2004 Ivan Kohler
-Copyright (c) 2007-2014 Freeside Internet Services, Inc.
+Copyright (c) 2007-2015 Freeside Internet Services, Inc.
All rights reserved.
=head1 HOMEPAGE
-Homepage: http://420.am/business-onlinepayment/
+Homepage: http://perl.business/onlinepayment
-Development: http://420.am/business-onlinepayment/ng.html
+Development: http://perl.business/onlinepayment/ng.html
=head1 MAILING LIST
Or on the web:
http://freeside.biz/gitweb/?p=Business-OnlinePayment.git
+ Or:
+ http://freeside.biz/gitlist/Business-OnlinePayment.git
Many (but by no means all!) processor plugins are also available in the same
repository, see:
http://freeside.biz/gitweb/
+ Or:
+ http://freeside.biz/gitlist/
=head1 DISCLAIMER
=head1 SEE ALSO
-http://420.am/business-onlinepayment/
+http://perl.business/onlinepayment
For verification of credit card checksums, see L<Business::CreditCard>.