my $respCodes = $processor->delayedCapture(
CCTYPE => $row->{debitacct},
ORIGID => $row->{auth_code},
CURRENCY_TYPE_ID => $row->{currency_type_id} );
croak "Failed authorization for TXID $row->{txid} "
unless ( $respCodes->{SUCCESS} == 1 );
####
return { SUCCESS => $response->{RESULT} == 0,
MESSAGE => $response->{RESPMSG},
AUTHCODE => $response->{AUTHCODE},
PNREF => $response->{PNREF},
CC_TYPE => $params{CCTYPE},
TOTAL_PAYMENT => $params{AMOUNT},
CHECK_DETAILS => $checkInfo,
};
##
##
return { SUCCESS => ( defined $response->{RESULT} && $response->{RESULT} == 0 ),
....