check for order_number method before using it

diff --git a/BusinessOnlinePayment.pm b/BusinessOnlinePayment.pm
index 4df0e49..5c1a167 100644 (file)
--- a/BusinessOnlinePayment.pm
+++ b/BusinessOnlinePayment.pm
@@ -283,7 +283,9 @@ sub onlinepayment {
   if ( $transaction->is_success() ) {
 
     $result{MStatus} = 'success';
-    $result{'order-id'} = $transaction->order_number || $opt->{'order_id'};
+    $result{'order-id'} = 
+      ( $transaction->can('order_number') && $transaction->order_number ) 
+      || $opt->{'order_id'};
 
   } else {