defined &$class is not how you detect if a class has been loaded (just using use...

diff --git a/Changes b/Changes
index ffe12f5..57af63c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,8 @@ Revision history for Perl extension Business::OnlinePayment.
 
 3.00_08  unreleased
         - B:OP:HTTPS: set response_page, response_code, response_headers
+        - B:OP: defined &$class is not how you detect if a class has been loaded
+          (just using use should be fine).  Closes: CPAN#22071
 
 3.00_07  Fri Mar 23 14:54:57 PDT 2007
        - B:OP:HTTPS request headers now work with Crypt::SSLeay too.

diff --git a/OnlinePayment.pm b/OnlinePayment.pm
index 2dc51db..632c822 100644 (file)
--- a/OnlinePayment.pm
+++ b/OnlinePayment.pm
@@ -32,13 +32,11 @@ my %fields = (
 sub new {
     my($class,$processor,%data) = @_;
 
-    Carp::croak("unspecified processor") unless $processor;
+    croak("unspecified processor") unless $processor;
 
     my $subclass = "${class}::$processor";
-    if(!defined(&$subclass)) {
-        eval "use $subclass";
-        Carp::croak("unknown processor $processor ($@)") if $@;
-    }
+    eval "use $subclass";
+    croak("unknown processor $processor ($@)") if $@;
 
     my $self = bless {processor => $processor}, $subclass;
     $self->build_subs(keys %fields);
@@ -104,23 +102,21 @@ sub _pre_submit {
     # Search for an appropriate FD module
     foreach my $fraud_class ( @Fraud_Class_Path ) {
        my $subclass = $fraud_class . "::" . $fraud_detection;
-       if (!defined(&$subclass)) {
-           eval "use $subclass ()";
-           if ($@) {
-               Carp::croak("error loading fraud_detection module ($@)")
-                     unless ( $@ =~ m/^Can\'t locate/ );
-           } else {
-               my $risk_tx = bless ( { processor => $fraud_detection } , $subclass );
-               $risk_tx->build_subs(keys %fields);
-               if ($risk_tx->can('set_defaults')) {
-                   $risk_tx->set_defaults();
-               }
-               $risk_tx->_glean_parameters_from_parent($self);
-               return $self->_risk_detect($risk_tx);
-           }
+       eval "use $subclass ()";
+       if ($@) {
+           croak("error loading fraud_detection module ($@)")
+              unless ( $@ =~ m/^Can\'t locate/ );
+        } else {
+            my $risk_tx = bless( { processor => $fraud_detection }, $subclass );
+            $risk_tx->build_subs(keys %fields);
+            if ($risk_tx->can('set_defaults')) {
+                $risk_tx->set_defaults();
+            }
+            $risk_tx->_glean_parameters_from_parent($self);
+            return $self->_risk_detect($risk_tx);
        }
     }
-    Carp::croak("Unable to locate fraud_detection module $fraud_detection"
+    croak("Unable to locate fraud_detection module $fraud_detection"
                . " in \@INC under Fraud_Class_Path (\@Fraud_Class_Path"
                . " contains: @Fraud_Class_Path) (\@INC contains: @INC)");
 }
@@ -144,7 +140,7 @@ sub required_fields {
         push(@missing, $_) unless exists $content{$_};
     }
 
-    Carp::croak("missing required field(s): " . join(", ", @missing) . "\n")
+    croak("missing required field(s): " . join(", ", @missing) . "\n")
          if(@missing);
 }
 
@@ -172,7 +168,7 @@ sub remap_fields {
 sub submit {
     my($self) = @_;
 
-    Carp::croak("Processor subclass did not override submit function");
+    croak("Processor subclass did not override submit function");
 }
 
 sub dump_contents {