require 5.005;
-$VERSION = '3.01_01';
+$VERSION = '3.02_02';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
# Remember subclasses we have "wrapped" submit() with _pre_submit()
%_info_handler = (
'supported_types' => sub {
my( $class, $v ) = @_;
- my $types = ref($v) ? $v : [ $v ];
- $types = { map { $_=>1 } @$types } if ref($v) eq 'ARRAY';
+ my $types = ref($v) ? $v : defined($v) ? [ $v ] : [];
+ $types = { map { $_=>1 } @$types } if ref($types) eq 'ARRAY';
$types;
},
'supported_actions' => sub {
my( $class, $v ) = @_;
return $v if ref($v) eq 'HASH';
$v = [ $v ] unless ref($v);
- my $types = $class->info('supported_types');
+ my $types = $class->info('supported_types') || {};
{ map { $_ => $v } keys %$types };
},
);
sub info {
- my $class = shift;
+ my $class = shift; #class or object
my $info = $class->_info;
if ( @_ ) {
my $key = shift;
Tax exempt flag (i.e. TRUE, FALSE, T, F, YES, NO, Y, N, 1, 0).
+=item currency
+
+Currency, specified as an ISO 4217 three-letter code, such as USD, CAD, EUR,
+AUD, DKK, GBP, JPY, NZD, etc.
+
=back
=head3 CUSTOMER INFO FIELDS
Credit card number.
+=item expiration
+
+Credit card expiration.
+
=item cvv2
CVV2 number (also called CVC2 or CID) is a three- or four-digit
security code used to reduce credit card fraud.
-=item expiration
+=item card_token
-Credit card expiration.
+If supported by your gateway, you can pass a card_token instead of a
+card_number and expiration.
+
+=cut
+
+#=item card_response
+#
+#Some card_token schemes implement a challenge/response handshake. In those
+#cases, this field is used for the response. In most cases the handshake
+#it taken care of by the gateway module.
=item track1
Track 2 on the magnetic stripe (Card present only)
-=item recurring billing
+=item recurring_billing
Recurring billing flag
=item account_number
-Bank account number for electronic checks or electronic funds
-transfer.
+Bank account number
=item routing_code
-Bank's routing code for electronic checks or electronic funds
-transfer.
+Bank's routing code
=item account_type
-Account type for electronic checks or electronic funds transfer. Can be
-(case-insensitive): B<Personal Checking>, B<Personal Savings>,
-B<Business Checking> or B<Business Savings>.
+Account type. Can be (case-insensitive): B<Personal Checking>,
+B<Personal Savings>, B<Business Checking> or B<Business Savings>.
=item account_name
-Account holder's name for electronic checks or electronic funds
-transfer.
+Account holder's name.
=item bank_name
-Bank's name for electronic checks or electronic funds transfer.
+Bank name.
+
+=item bank_city
+
+Bank city.
+
+=item bank_state
+
+Bank state.
=item check_type
-Check type for electronic checks or electronic funds transfer.
+Check type.
=item customer_org
=item customer_ssn
-Customer's social security number. Typically only required for
-electronic checks or electronic funds transfer.
+Customer's social security number.
=item license_num
-Customer's driver's license number. Typically only required for
-electronic checks or electronic funds transfer.
+Customer's driver's license number.
=item license_dob
-Customer's date of birth. Typically only required for electronic
-checks or electronic funds transfer.
+Customer's date of birth.
=back
The unique order number for the transaction generated by the gateway. Store
this if you would like to run inquiries or refunds on the transaction later.
+=head2 card_token()
+
+If supported by your gateway, a card_token can be used in a subsequent
+transaction to refer to a card number.
+
=head2 fraud_score()
Retrieve or change the fraud score from any Business::FraudDetect plugin
Phil Lobbes E<lt>phil at perkpartners dot comE<gt>
+=head1 COPYRIGHT
+
+Copyright (c) 1999-2004 Jason Kohles
+Copyright (c) 2004 Ivan Kohler
+Copyright (c) 2007-2011 Freeside Internet Services, Inc.
+
+All rights reserved.
+
+This program is free software; you can redistribute it and/or modify it under
+the same terms as Perl itself.
+
=head1 HOMEPAGE
Homepage: http://420.am/business-onlinepayment/