- if ( $ssl_module eq 'Net::SSLeay' ) {
-
- #import Net::SSLeay qw(post_https make_headers make_form);
- import Net::SSLeay qw(make_headers make_form);
- my $headers = make_headers(%headers);
-
- if ( $DEBUG ) {
- warn $self->server. ':'. $self->port. $self->path. "\n";
- $Net::SSLeay::trace = 2;
- }
- #post_https( $self->server, $self->port, $self->path,
- # $headers, make_form(%$post_data) );
-
- my $raw_data = ref($post_data) ? make_form(%$post_data) : $post_data;
- post_https( $self->server, $self->port, $self->path,
- $headers, $raw_data );
-
- } elsif ( $ssl_module eq 'Crypt::SSLeay' ) {
-
- import HTTP::Request::Common qw(POST);