$VERSION = '0.01';
+sub _glean_parameters_from_parent {
+ my ($self, $parent) = @_;
+ foreach my $method (qw / precharge_id precharge_security1 precharge_security2 /) {
+ $self->$method($parent->$method);
+ }
+}
+
sub set_defaults {
my ($self) = @_;
$self->server('api.precharge.net');
$self->port(443);
$self->path('/charge');
- $self->build_subs(qw /currency risk_level error_code
+ $self->build_subs(qw /currency fraud_score error_code
precharge_id precharge_security1 precharge_security2 force_success / );
$self->currency('USD');
return $self;
my ($self) = @_;
if ($self->force_success()) {
$self->is_success(1);
- $self->risk_level(100);
$self->result_code('1');
$self->error_message('No Error. Force success path');
return $self;
if ($output{response} == 1 ) {
$self->is_success(1);
- $self->risk_level($output{score});
+ $self->fraud_score($output{score});
$self->result_code($output{response});
$self->error_message('No Error. Risk assesment transaction successful');
} else {
}
}
+
+
+
1;
+
+=pod
+
+=head1 NAME
+
+Business::FraudDetect::preCharge - backend for Business::FraudDetect (part of Business::OnlinePayment)
+
+=head1 SYNOPSIS
+
+ use Business::OnlinePayment
+ my $tx = new Business::OnlinePayment ( 'someGateway',
+ fruad_detection => 'preCharge',
+ maximum_fraud_score => 500,
+ preCharge_id => '1000000000000001',
+ preCharge_security1 => 'abcdef0123',
+ preCharge_security2 => '3210fedcba',
+ );
+ $tx->content(
+ first_name => 'Larry Walton',
+ last_name => 'Sanders',
+ login => 'testdrive',
+ password => '',
+ action => 'Normal Authorization',
+ type => 'VISA',
+ state => 'MA',
+ zip => '02145',
+ country => 'US',
+ phone => '617 555 8900',
+ email => 'lws@sanders.com',
+ ip_address => '18.62.0.6',
+ card_number => '4111111111111111',
+ expiration => '0307',
+ amount => '25.00',
+ );
+ $tx->submit();
+ if ($tx->is_success()) {
+ # successful charge
+ } else {
+ # unsucessful
+ }
+
+=head1 DESCRIPTION
+
+This module provides a driver for the preCharge Risk Management Solutions API Verison 1.7 (16 Jan 2006).
+
+See L<Business::OnlinePayment> and L<Business::FraudDetect> for more information.
+
+
+=head1 CONSTRUCTION
+
+Whe constructing the Business::OnlinePayment object, three risk management parameters must be included for the preCharge object to be properly constructed.
+
+=over 4
+
+=item * precharge_id
+
+This field is called "merchant_id" in the preCharge API manual
+
+
+=item * precharge_security1
+
+This field is called "security_1" in the preCharge API manual
+
+=item * precharge_secuirty2
+
+This field is called "security_2" in the preCharge API manual
+
+=back
+
+
+=head1 METHODS
+
+This module provides no public methods.
+
+=head1 AUTHORS
+
+Lawrence Statton <lawrence@cluon.com>
+
+=head1 DISCLAIMER
+
+THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
+
+=head1 SEE ALSO
+
+http://420.am/business-onlinepayment
+
+=cut