view release on metacpan or search on metacpan
lib/Net/Async/AMQP.pm view on Meta::CPAN
=item * pass - the password for this user, defaults to guest
=item * ssl - true if you want to connect over SSL
=item * SSL_* - SSL-specific parameters, see L<IO::Async::SSL> and L<IO::Socket::SSL> for details
=back
Returns $self.
view release on metacpan or search on metacpan
lib/Net/Async/HTTP/Server/PSGI.pm view on Meta::CPAN
=item C<psgix.io>
The actual L<IO::Socket> filehandle that the request was received on.
If the server is running under SSL for HTTPS, this will be an
L<IO::Socket::SSL> instance, so reading from or writing to it will happen in
cleartext.
=item C<net.async.http.server>
The C<Net::Async::HTTP::Server::PSGI> object serving the request
view release on metacpan or search on metacpan
t/21local-connect-ssl.t view on Meta::CPAN
on_stream => sub {
my ( $stream ) = @_;
# SNI - RT#94605
SKIP: {
skip "SSL server does not support SNI", 1 unless IO::Socket::SSL->can_server_sni;
my $sslsocket = $stream->read_handle;
is( $sslsocket->get_servername, "127.0.0.1", '->get_servername on server' );
}
view release on metacpan or search on metacpan
lib/Net/Async/IMAP/Client.pm view on Meta::CPAN
$Net::Async::IMAP::Client::VERSION = '0.004';
}
use strict;
use warnings;
use parent qw(IO::Async::Stream);
use IO::Socket::SSL qw(SSL_VERIFY_NONE);
use IO::Async::SSL;
use IO::Async::SSLStream;
use Protocol::IMAP::Client;
use curry;
use Future;
lib/Net/Async/IMAP/Client.pm view on Meta::CPAN
},
starttls => sub {
my ($ev, $data) = @_;
$self->loop->SSL_upgrade(
handle => $self->read_handle,
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
)->on_done(
$self->curry::on_tls_upgraded
)->on_fail(sub { warn "upgrade failed: @_" });
},
authentication_required => sub {
view release on metacpan or search on metacpan
lib/Net/Async/Matrix.pm view on Meta::CPAN
Whether to use SSL/TLS to communicate with the homeserver. Defaults false.
=head2 SSL_* => ...
Any other parameters whose names begin C<SSL_> will be stored for passing to
the HTTP user agent. See L<IO::Socket::SSL> for more detail.
=head2 path_prefix => STRING
Optional. Gives the path prefix to find the Matrix client API at. Normally
this should not need modification.
view release on metacpan or search on metacpan
examples/send.pl view on Meta::CPAN
use IO::Async::Loop;
use Net::Async::SMTP::Client;
use Email::Simple;
use Email::Address;
use IO::Socket::SSL qw(SSL_VERIFY_NONE);
use Getopt::Long;
use Pod::Usage;
=head1 Usage
view release on metacpan or search on metacpan
lib/Net/Async/WebService/lxd.pm view on Meta::CPAN
operations are still running or have completed. The optional parameter B<polling_time> controls how
often that will occur; it will default to 1 sec, if not provided.
As LXC can be accessed remotely only via HTTPS, TLS (SSL) parameters must be provided. These will be
forwarded directly to
L<IO::Socket::SSL|https://metacpan.org/pod/IO::Socket::SSL#Description-Of-Methods>. But, specifically,
one should consider to provide:
=over
=item * B<client certificate>, via a proper subset of C<SSL_cert_file>, C<SSL_key_file>, C<SSL_cert> and C<SSL_key>.
lib/Net/Async/WebService/lxd.pm view on Meta::CPAN
Robert Barta, C<< <rho at devc.at> >>
=head1 CREDITS
L<IO::Async>, L<Net::Async::HTTP>, L<IO::Socket::SSL> and friends are amazing.
=head1 LICENSE AND COPYRIGHT
Copyright 2022 Robert Barta.
view release on metacpan or search on metacpan
lib/Net/Async/Webservice/Common/WithRequestWrapper.pm view on Meta::CPAN
isa => HashRef,
);
sub _build_ssl_options {
# this is to work around an issue with IO::Async::SSL, see
# https://rt.cpan.org/Ticket/Display.html?id=96474
eval "require IO::Socket::SSL" or return {};
return { SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_PEER() }
}
sub request {
state $argcheck = compile( Object, HTTPRequest );
view release on metacpan or search on metacpan
lib/Net/Async/Webservice/UPS.pm view on Meta::CPAN
return defined $self->cache;
}
sub _build_ssl_options {
eval "require IO::Socket::SSL; require IO::Socket::SSL::Utils; require Mozilla::CA;"
or return {};
my $cert = IO::Socket::SSL::Utils::PEM_string2cert(<<'PEM');
-----BEGIN CERTIFICATE-----
MIICPDCCAaUCEHC65B0Q2Sk0tjjKewPMur8wDQYJKoZIhvcNAQECBQAwXzELMAkGA1UEBhMCVVMx
FzAVBgNVBAoTDlZlcmlTaWduLCBJbmMuMTcwNQYDVQQLEy5DbGFzcyAzIFB1YmxpYyBQcmltYXJ5
IENlcnRpZmljYXRpb24gQXV0aG9yaXR5MB4XDTk2MDEyOTAwMDAwMFoXDTI4MDgwMTIzNTk1OVow
XzELMAkGA1UEBhMCVVMxFzAVBgNVBAoTDlZlcmlTaWduLCBJbmMuMTcwNQYDVQQLEy5DbGFzcyAz
lib/Net/Async/Webservice/UPS.pm view on Meta::CPAN
WM1pF+NEHJwZRDmJXNycAA9WjQKZ7aKQRUzkuxCkPfAyAw7xzvjoyVGM5mKf5p/AfbdynMk2Omuf
Tqj/ZA1k
-----END CERTIFICATE-----
PEM
return {
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_PEER(),
SSL_ca => [ $cert ],
SSL_ca_file => Mozilla::CA::SSL_ca_file(),
};
}
lib/Net/Async/Webservice/UPS.pm view on Meta::CPAN
=head2 C<ssl_options>
Optional hashref, its contents will be passed to C<user_agent>'s
C<do_request> method.
If L<IO::Socket::SSL> and L<Mozilla::CA> are installed, the default
value sets full TLS validation, and makes sure that the Verisign
certificate currently (as of 2015-02-03) used by the UPS servers is
recognised (see L<UPS SSL/TLS notes>).
=head1 METHODS
view release on metacpan or search on metacpan
lib/Net/Async/XMPP/Protocol.pm view on Meta::CPAN
=cut
use IO::Async::Resolver::DNS;
use IO::Async::SSL;
use IO::Socket::SSL qw(SSL_VERIFY_NONE);
use Socket qw(getnameinfo IPPROTO_TCP NI_NUMERICHOST NI_NUMERICSERV SOCK_STREAM);
use Protocol::XMPP::Stream;
use Future::Utils 'repeat';
use curry::weak;
view release on metacpan or search on metacpan
TLSProfile.pm view on Meta::CPAN
=head1 DESCRIPTION
This is a TLS profile for BEEP as defined by RFC 3080 for use with the
C<Net::BEEP::Lite> module. It can be use for both the initiator and
listener roles. This module relies heavily on the C<IO::Socket::SSL>
module for the TLS implementation.
=cut
use Carp;
use strict;
use warnings;
use XML::LibXML;
use IO::Socket::SSL;
use Net::BEEP::Lite::Message;
use base qw(Net::BEEP::Lite::BaseProfile);
TLSProfile.pm view on Meta::CPAN
session as its first and only argument. For example, this might be
used to change the local profiles offered.
=item SSL_*
These are parameters that are understood by C<IO::Socket::SSL::new>.
You will probably want to use a few of them: SSL_cert_file,
SSL_key_file, and SSL_verify_mode are typical.
=back
TLSProfile.pm view on Meta::CPAN
my $sock = $session->_socket();
my %ssl_args = %{$self->{_ssl_args}};
$ssl_args{SSL_server} = $self->{_is_server} if $self->{_is_server};
my $ssl_sock = IO::Socket::SSL->start_SSL($sock, %ssl_args);
if ($ssl_sock) {
# SSL negotation succeeded.
$session->_set_socket($ssl_sock);
TLSProfile.pm view on Meta::CPAN
$session->_tuning_reset();
$res = 1;
}
else {
$errstr = "SSL/TLS negotiation failed: ", &IO::Socket::SSL::errstr();
print STDERR $errstr if $self->{debug};
$res = undef;
}
TLSProfile.pm view on Meta::CPAN
=head1 SEE ALSO
=over 4
=item L<IO::Socket::SSL>
=item L<Net::BEEP::Lite>
=cut
view release on metacpan or search on metacpan
"LWP::UserAgent" : "0"
}
},
"test" : {
"requires" : {
"IO::Socket::SSL" : "0",
"Test::Exception" : "0",
"Test::More" : "0"
}
}
},
view release on metacpan or search on metacpan
"runtime" : {
"requires" : {
"HTTP::Tiny" : "0.025",
"Carp" : "0",
"JSON::MaybeXS" : "1.004005",
"IO::Socket::SSL" : "1.42",
"Data::Dumper" : "0",
"perl" : "5.014002",
"List::Util" : "0"
},
"recommends" : {
"Data::Peek" : "0.52",
"HTTP::Tiny" : "0.088",
"IO::Socket::SSL" : "2.085",
"Data::Dumper" : "2.188"
}
},
"configure" : {
"requires" : {
view release on metacpan or search on metacpan
lib/Net/Cisco/ACS.pm view on Meta::CPAN
package Net::Cisco::ACS;
use strict;
use Moose;
# REST IO stuff here
use IO::Socket::SSL qw( SSL_VERIFY_NONE );
use LWP::UserAgent;
use XML::Simple;
# Generics
use MIME::Base64;
lib/Net/Cisco/ACS.pm view on Meta::CPAN
=over 3
=item L<Moose>
=item L<IO::Socket::SSL>
=item L<LWP::UserAgent>
=item L<XML::Simple>
view release on metacpan or search on metacpan
lib/Net/Cisco/ISE.pm view on Meta::CPAN
package Net::Cisco::ISE;
use strict;
use Moose;
# REST IO stuff here
use IO::Socket::SSL qw( SSL_VERIFY_NONE );
use LWP::UserAgent;
use XML::Simple;
# Generics
use MIME::Base64;
lib/Net/Cisco/ISE.pm view on Meta::CPAN
=over 3
=item L<Moose>
=item L<IO::Socket::SSL>
=item L<LWP::UserAgent>
=item L<XML::Simple>
view release on metacpan or search on metacpan
lib/Net/Citadel/ToDo.pod view on Meta::CPAN
Add a note in the documentation about the Net::Citadel repository and home page
at GitHub? Also include a reference to where it is available at the C<gitpan>
CPAN mirror at GitHub?
Add capability to use SSL encrypted communications with the Citadel server,
perhaps using IO::Socket::SSL?
Change to using the jame@cpan.org address for Robert James Clay instead of the
jame@rocasa.us address?
Other issues: (but uncertain what this is supposed to be about except that it
view release on metacpan or search on metacpan
example/rawclient.pl view on Meta::CPAN
#---AUTOPRAGMAEND---
use Term::ReadKey;
use Time::HiRes qw(sleep);
use IO::Socket::IP;
use IO::Socket::SSL;
use MIME::Base64;
my $peer = shift @ARGV;
if(!defined($peer) || $peer !~ /\:/) {
die("Usage: rawclient.pl host:port");
example/rawclient.pl view on Meta::CPAN
) or croak("Failed to connect to Clacks message service: $ERRNO");
binmode($socket, ':bytes');
$socket->blocking(0);
IO::Socket::SSL->start_SSL($socket,
SSL_verify_mode => SSL_VERIFY_NONE,
) or croak("Can't use SSL: " . $SSL_ERROR);
# Auth
foreach my $initcmd (@initcommands) {
view release on metacpan or search on metacpan
lib/Net/ClientServer.pm view on Meta::CPAN
close STDOUT;
if ( defined $fileno ) {
open STDOUT, ">&$fileno" or die "Unable open STDOUT to socket: $!";
}
else {
*STDOUT= \*{ $socket } unless $socket->isa( 'IO::Socket::SSL' );
}
STDOUT->autoflush( 1 );
}
# Stoled from Net::Server
lib/Net/ClientServer.pm view on Meta::CPAN
close STDERR;
if ( defined $fileno ) {
open STDERR, ">&$fileno" or die "Unable open STDERR to socket: $!";
}
else {
*STDERR= \*{ $socket } unless $socket->isa( 'IO::Socket::SSL' );
}
STDERR->autoflush( 1 );
}
1;
view release on metacpan or search on metacpan
lib/Net/DRI/Transport/Socket.pm view on Meta::CPAN
use strict;
use warnings;
use IO::Socket::INET;
## At least this version is needed, to have getline()
use IO::Socket::SSL 0.90;
use Net::DRI::Exception;
use Net::DRI::Util;
use Net::DRI::Data::Raw;
lib/Net/DRI/Transport/Socket.pm view on Meta::CPAN
ssl, tcp or udp
=head2 ssl_key_file ssl_cert_file ssl_ca_file ssl_ca_path ssl_cipher_list ssl_version ssl_passwd_cb
if C<socktype> is 'ssl', all key materials, see IO::Socket::SSL documentation for corresponding options
=head2 ssl_verify
see IO::Socket::SSL documentation about verify_mode (by default 0x00 here)
=head2 ssl_verify_callback
see IO::Socket::SSL documentation about verify_callback, it gets here as first parameter the transport object
then all parameter given by IO::Socket::SSL; it is explicitely verified that the subroutine returns a true value,
and if not the connection is aborted.
=head2 remote_host remote_port
hostname (or IP address) & port number of endpoint
lib/Net/DRI/Transport/Socket.pm view on Meta::CPAN
Net::DRI::Exception::usererr_invalid_parameters('close_after must be an integer') if ($opts{close_after} && !Net::DRI::Util::isint($opts{close_after}));
$t{close_after}=$opts{close_after} || 0;
if ($t{socktype} eq 'ssl')
{
$IO::Socket::SSL::DEBUG=$opts{ssl_debug} if exists($opts{ssl_debug});
my %s=(SSL_use_cert => 0);
$s{SSL_verify_mode}=(exists($opts{ssl_verify}))? $opts{ssl_verify} : 0x00; ## by default, no authentication whatsoever
$s{SSL_verify_callback}=sub { my $r=$opts{ssl_verify_callback}->($self,@_); Net::DRI::Exception->die(1,'transport/socket',6,'SSL certificate user verification failed, aborting connection') unless $r; 1; } if (exists $opts{ssl_verify_callback} && de...
foreach my $s (qw/key_file cert_file ca_file ca_path version passwd_cb/)
lib/Net/DRI/Transport/Socket.pm view on Meta::CPAN
);
$n{LocalAddr}=$t->{local_host} if exists($t->{local_host});
if ($type eq 'ssl')
{
$sock=IO::Socket::SSL->new(%{$t->{ssl_context}},
%n,
);
}
if ($type eq 'tcp' || $type eq 'udp')
{
$sock=IO::Socket::INET->new(%n);
}
Net::DRI::Exception->die(1,'transport/socket',6,'Unable to setup the socket for '.$t->{remote_uri}.' with error: "'.$!.($type eq 'ssl'? '" and SSL error: "'.IO::Socket::SSL::errstr().'"' : '"')) unless defined $sock;
$sock->autoflush(1);
$self->sock($sock);
$self->log_output('notice','transport',$ctx,{phase=>'opening',message=>'Successfully opened socket to '.$t->{remote_uri}});
return;
}
view release on metacpan or search on metacpan
lib/Net/Daemon/SSL.pm view on Meta::CPAN
package IO::Socket::SSL::SafeAccept;
use strict;
use POSIX;
use IO::Socket::SSL;
$IO::Socket::SSL::SafeAccept::VERSION = ( split " ", '# $Id: SSL.pm,v 1.0 2000/06/14 10:30:56 mkul Exp $ ' )[3];
@IO::Socket::SSL::SafeAccept::ISA = qw(IO::Socket::SSL);
sub accept
{
my $this = shift;
my $result = $this->SUPER::accept ( @_ );
lib/Net/Daemon/SSL.pm view on Meta::CPAN
{
my $this = shift;
my $buffer;
$this->{socket}->print ( "vasja was here\n" );
$this->{socket}->sysread ( $buffer, 100 ); # Attention! getline() method
# do not work with IO::Socket::SSL
# version 0.73
# see perldoc IO::Socket::SSL
# for more details
}
package main;
my $daemon = new MyDaemon ( {}, \ @ARGV ); # you can use --help command line key
$daemon || die "error create daemon instance: $!\n";
$daemon->Bind();
=head1 DESCRIPTION
This class implements an IO::Socket::SSL functionality for Net::Daemon
class. See perldoc Net::Daemon for more information about Net::Daemon usage.
=cut
use strict;
lib/Net/Daemon/SSL.pm view on Meta::CPAN
'Generic Net::Daemon::SSL server 1.0 (C) Michael Kulakov 2000';
}
=head2 Options
This method add IO::Socket::SSL specific options ( SSL_use_cert,
SSL_verify_mode, SSL_key_file, SSL_cert_file, SSL_ca_path, SSL_ca_file ) to
generic Net::Daemon options. See perldoc IO::Socket::SSL for description of
this options
=cut
sub Options ($)
{
my $this = shift;
my $options = $this->SUPER::Options();
my $descr = ' - see perldoc IO::Socket::SSL for same parameter';
$options->{SSL_use_cert} = { 'template' => 'SSL_use_cert',
'description' => '--SSL_use_cert' . $descr };
$options->{SSL_verify_mode} = { 'template' => 'SSL_verify_mode=s',
'description' => '--SSL_verify_mode' . $descr };
$options->{SSL_key_file} = { 'template' => 'SSL_key_file=s',
lib/Net/Daemon/SSL.pm view on Meta::CPAN
$options;
}
=head2 Bind
This method creates an IO::Socket::SSL::SafeAccept socket, stores this socket
into $this->{socket} and passes control to parent Net::Daemon::Bind. The
IO::Socket::SSL::SafeAccept is a class inherited from
IO::Socket::SSL with the only difference from parent class - the accept() method of
this class returns EINTR on *any* error. This trick is needed to "hack"
Net::Daemon::Bind functionality: if this method gets an error from accept()
( Net::Daemon::SSL auth error, for example ) it will call Fatal() method and
die unless this is a EINTR error.
lib/Net/Daemon/SSL.pm view on Meta::CPAN
sub Bind
{
my $this = shift;
unless ( $this->{socket} )
{
$this->{socket} = new IO::Socket::SSL::SafeAccept
( LocalAddr => $this->{localaddr},
LocalPort => $this->{localport},
Proto => $this->{proto} || 'tcp',
Listen => $this->{listen} || 10,
Reuse => 1,
lib/Net/Daemon/SSL.pm view on Meta::CPAN
General Public License or the Artistic License, as specified in the
Perl README file.
=head1 SEE ALSO
L<Net::Daemon(3)>, L<IO::Socket::SSL(3)>
=cut
__END__
view release on metacpan or search on metacpan
lib/Net/DirectConnect.pm view on Meta::CPAN
),
return 1
if !$self->{'socket'};
#$self->log( 'dev', 'timeout to', $self->{'Timeout'});
$self->{'socket'}->timeout( $self->{'Timeout'} ) if $self->{'Timeout'}; #timeout must be after new, ifyou want nonblocking
#$self->log( 'dev', 'ssltry'), IO::Socket::SSL->start_SSL($self->{'socket'}) if $self->{'protocol'} eq 'adcs';
#$self->log( 'err', "connect socket error: $@, $! [$self->{'socket'}]" ), return 1 if !$self->{'socket'};
#$self->{'socket'}->binmode(":encoding($self->{charset_protocol})");
#$self->{charset_protocol} = 'utf8';
#$self->log( 'dev', "set encoding of socket to [$self->{charset_protocol}]");
# binmode($self->{'socket'}, ":encoding($self->{charset_protocol})");
lib/Net/DirectConnect.pm view on Meta::CPAN
and !$is_local_ip->( $self->{'hostip'} );
$self->{'M'} ||= 'A';
#$self->log( 'info', "mode set [$self->{'M'}] ");
$self->log( 'info', "connect to $self->{'host'}($self->{'hostip'}):$self->{'port'} [me=$self->{'myip'}] ok ", );
#$self->log( $self, 'connected1 inited', "MT:$self->{'message_type'}", ' with' );
#$self->log( 'dev', 'ssltry'),IO::Socket::SSL->start_SSL($self->{'socket'}) if $self->{'protocol'} eq 'adcs';
$self->connect_aft();
}
sub reconnect { #$self->{'reconnect'} ||= sub {
my $self = shift;
lib/Net/DirectConnect.pm view on Meta::CPAN
=head1 INSTALLATION
To install this module type the following:
cpan DBD::SQLite IO::Socket::IP IO::Socket::INET6 IO::Socket::SSL
perl Makefile.PL && make install clean
debian:
apt-get install libdbd-sqlite3-perl libio-socket-ip-perl libjson-xs-perl libjson-perl libmime-base32-perl liblib-abs-perl
view release on metacpan or search on metacpan
"runtime" : {
"requires" : {
"Addr::MyIP" : "0",
"File::HomeDir" : "0",
"HTTP::Tiny" : "0",
"IO::Socket::SSL" : "0",
"JSON" : "0",
"perl" : "5.006"
}
},
"test" : {
view release on metacpan or search on metacpan
build_requires:
ExtUtils::MakeMaker: 0
requires:
Crypt::SSLeay: 0
HTTP::Request::Common: 5.814
IO::Socket::SSL: 0
JSON: 0
LWP::Protocol::https: 0
LWP::UserAgent: 0
no_index:
directory:
view release on metacpan or search on metacpan
"ExtUtils::MakeMaker" : "6.30"
}
},
"runtime" : {
"requires" : {
"IO::Socket::SSL" : "1.83",
"Moo" : "1.000008",
"Net::SSLeay" : "1.52",
"XML::Simple" : "2.20",
"perl" : "5.014"
}
view release on metacpan or search on metacpan
lib/Net/EPP/MITMProxy.pm view on Meta::CPAN
package Net::EPP::MITMProxy;
# ABSTRACT: A generic EPP proxy server framework.
use IO::Socket::SSL;
use Mozilla::CA;
use Net::EPP::Protocol;
use Socket6;
use Socket;
use SUPER;
lib/Net/EPP/MITMProxy.pm view on Meta::CPAN
if ($self->{$OPT_KEY}->{remote_key} && $self->{$OPT_KEY}->{remote_cert}) {
$args{SSL_key_file} = $self->{$OPT_KEY}->{remote_key};
$args{SSL_cert_file} = $self->{$OPT_KEY}->{remote_cert};
}
my $server = IO::Socket::SSL->new(%args);
if (!$server) {
$self->log(0, sprintf(
'connection to [%s]:%u failed (error=%s, SSL error=%s)',
$self->{$OPT_KEY}->{remote_server},
view release on metacpan or search on metacpan
- No changes from 0.06_03
0.06_03 2022-12-08
- Test suite fix for releasing domains to NOMINET
- Test suite fix connections with newer IO::Socket::SSL versions
0.06_02 2022-11-11
- Domain check returns reason for unavailability as 3rd value
view release on metacpan or search on metacpan
lib/Net/EPP/Server.pm view on Meta::CPAN
use DateTime;
use Digest::SHA qw(sha512_hex);
use File::Path qw(make_path);
use File::Spec;
use File::Slurp qw(write_file);
use IO::Socket::SSL;
use List::Util qw(any none);
use Mozilla::CA;
use Net::EPP 0.27;
use Net::EPP::Frame;
use Net::EPP::Protocol;
view release on metacpan or search on metacpan
lib/Net/EPP/Client.pm view on Meta::CPAN
package Net::EPP::Client;
use Carp;
use IO::Socket::IP;
use IO::Socket::SSL;
use Net::EPP::Parser;
use Net::EPP::Frame::Response;
use Net::EPP::Protocol;
use bytes;
use strict;
lib/Net/EPP/Client.pm view on Meta::CPAN
OPTIONAL. Specifies the TCP port to connect to. This defaults to C<700>.
=item * C<ssl>
OPTIONAL. If the value of this parameter is false, then a plaintext
connection will be created. Otherwise, L<IO::Socket::SSL> will be used to
provide an encrypted connection.
=item * C<frames>
DEPRECATED. If the value of this parameter is false, then the C<request()> and
lib/Net/EPP/Client.pm view on Meta::CPAN
my $greeting = $epp->connect(%PARAMS);
This method establishes the TCP connection. You can use the C<%PARAMS> hash to
specify arguments that will be passed on to the constructors for
L<IO::Socket::IP> (such as a timeout) or L<IO::Socket::SSL> (such as
certificate information). Which of these modules will be used is determined by
the C<ssl> parameter that was provided when instantiating the object. See the
relevant manpage for examples.
This method will C<croak()> if connection fails, so be sure to use C<eval()> if
lib/Net/EPP/Client.pm view on Meta::CPAN
}
sub _connect_tcp {
my ($self, %params) = @_;
my $class = ($self->{'ssl'} == 1 ? 'IO::Socket::SSL' : 'IO::Socket::IP');
$self->{'connection'} = $class->new(
'PeerAddr' => $self->{'host'},
'PeerPort' => $self->{'port'},
'Proto' => 'tcp',
view release on metacpan or search on metacpan
0.08 2013-05-19
Seriously. Fix rate number test.
0.07 2013-05-16
Check carriers against a regex
For reals, make IO::Socket::SSL
a dependency
0.06 2013-05-15
Make IO::Socket::SSL a prereq
Check rate against regex
0.05 2013-05-14
Fix post request method due to
Mojo deprecation warnings
view release on metacpan or search on metacpan
"Crypt::OpenSSL::RSA" : "0",
"DateTime" : "0",
"Digest::SHA" : "0",
"Getopt::Long" : "0",
"IO::Lambda" : "1.29",
"IO::Socket::SSL" : "0",
"LWP" : "0",
"MIME::Base64" : "0",
"MIME::Entity" : "0",
"XML::Simple" : "0",
"perl" : "5.010"