+ warn "$_ => $response{$_}\n" for keys %response;
+
+ if ( $response{'r_approved'} eq 'APPROVED' ) {
+ $self->is_success(1);
+ $self->result_code($response{'r_code'});
+ $self->authorization($response{'r_ref'});
+ $self->order_number($response{'r_ordernum'});
+ $self->avs_code($response{'r_avs'});
+ } else {