+ warn "$_ => $post_data{$_}\n" foreach keys %post_data;
+
+ my %response;
+ #{
+ # local($^W)=0;
+ # %response = $lperl->$action(\%post_data);
+ #}
+ %response = $lperl->curl_process(\%post_data);
+
+ 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 {