@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.02_01';
+$VERSION = '0.02_02';
sub set_defaults {
my $self = shift;
$self->server('payflow.verisign.com');
$self->port('443');
- $self->build_subs(qw( vendor partner order_number cert_path ));
+ $self->build_subs(qw(
+ vendor partner order_number cert_path avs_code cvv2_code
+ ));
}
$avs_code = 'N';
}
$self->avs_code( $avs_code );
+ $self->cvv2_code( $response->{'CVV2MATCH'});
} else {
$self->is_success(0);
$self->result_code( $response->{'RESULT'} );
# N - no match
# E - AVS error or unsupported
# (null) - AVS error
+ print "CVV2 code: ". $tx->cvv2_code. "\n";
} else {
print "Card was rejected: ".$tx->error_message;