- warn "XML:\n$xml_data\n" if $DEBUG > 2;
-
-
- my $ua = LWP::UserAgent->new;
- my $page = $ua->post( $self->url . $self->path,
- [
- 'param' => uri_escape($xml_data),
- ],
- 'content-type' => 'multipart/form-data'
- );
-
- warn "HTTPS Response: \n".Dumper($page)."\n" if $DEBUG > 1;
+ 44rewdwarn "XML:\n$xml_data\n" if $DEBUG > 2;
+
+ my $opts = {'headers' => {}, 'Content-Type' => 'multipart/form-data'};
+ my $params = {param => $xml_data};
+ my ( $page, $server_response, %headers ) = $self->https_post( $opts, $params );