Changed the logic in the symbol-table magic to punt if the processor

[Business-OnlinePayment.git] / OnlinePayment.pm

diff --git a/OnlinePayment.pm b/OnlinePayment.pm
index 871d555..874176d 100644 (file)
--- a/OnlinePayment.pm
+++ b/OnlinePayment.pm
@@ -58,11 +58,15 @@ sub new {
        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();
-
+       unless ( $subclass->can('submit') eq
+                $class->can('submit'))
+       {
+           
+           $self->{_child_submit} = \&$submit;
+           *{"${subclass}::submit"} = sub {
+               my $self = shift;
+               $self->_pre_submit();
+           }
        }
     }