$VERSION = '3.00_04';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
+# Remember subclasses we have "wrapped" submit() with _pre_submit()
+my %WrappedSubmitClassMethod = ();
+
my %fields = (
authorization => undef,
error_message => undef,
transaction_type => undef,
);
-
sub new {
my($class,$processor,%data) = @_;
}
unless ( $subclass->can('submit') eq $class->can('submit') ) {
- no strict 'refs';
- no warnings 'redefine';
my $submit = qualify_to_ref('submit', $subclass);
- $self->{_child_submit} = \&$submit;
- *{"${subclass}::submit"} = sub {
- my $self = shift;
- $self->_pre_submit();
- }
+ # "wrap" submit ONLY once, cache info for later calls to new()
+ if ( ! exists $WrappedSubmitClassMethod{$subclass} ) {
+ no warnings 'redefine';
+ no strict 'refs';
+
+ $WrappedSubmitClassMethod{$subclass} = \&$submit;
+ *{"${subclass}::submit"} = sub {
+ my $self = shift;
+ $self->_pre_submit();
+ }
+ }
+ $self->{_child_submit} = $WrappedSubmitClassMethod{$subclass};
}
return $self;
}
}
-sub _pre_submit{
+sub _pre_submit {
my ($self) = @_;
my $fraud_detection = $self->fraud_detect();
$transaction->submit();
if($transaction->is_success()) {
- print "Card processed successfully: ".$transaction->authorization()."\n";
+ print "Card processed successfully: ", $transaction->authorization(), "\n";
} else {
- print "Card was rejected: ".$transaction->error_message()."\n";
+ print "Card was rejected: ", $transaction->error_message(), "\n";
}
=head1 DESCRIPTION