Reverse the order of infuse() map

diff --git a/InternetSecure.pm b/InternetSecure.pm
index cf0eec1..2b63019 100755 (executable)
--- a/InternetSecure.pm
+++ b/InternetSecure.pm
@@ -217,7 +217,7 @@ sub infuse {
 
        while (my ($k, $v) = each %map) {
                no strict 'refs';
-               $self->$v($data->{$k});
+               $self->$k($data->{$v});
        }
 }
 
@@ -240,19 +240,19 @@ sub parse_response {
        my $code = $self->result_code($response->{Page});
        $self->is_success($code eq '2000' || $code eq '90000' || $code eq '900P1');
 
-       $self->infuse($response, qw(
-                       ReceiptNumber           receipt_number
-                       SalesOrderNumber        sales_number
-                       Date                    date
-                       xxxName                 cardholder
-                       CardType                card_type
-                       Page                    result_code
-                       ApprovalCode            authorization
-                       Verbiage                error_message
-                       TotalAmount             total_amount
-                       AVSResponseCode         avs_response
-                       CVV2ResponseCode        cvv2_response
-               ));
+       $self->infuse($response,
+                       receipt_number  => 'ReceiptNumber',
+                       sales_number    => 'SalesOrderNumber',
+                       date            => 'Date',
+                       cardholder      => 'xxxName',
+                       card_type       => 'CardType',
+                       result_code     => 'Page',
+                       authorization   => 'ApprovalCode',
+                       error_message   => 'Verbiage',
+                       total_amount    => 'TotalAmount',
+                       avs_response    => 'AVSResponseCode',
+                       cvv2_response   => 'CVV2ResponseCode',
+                       );
        
        # Completely undocumented field that sometimes override <Verbiage>
        $self->error_message($response->{Error}) if $response->{Error};