view release on metacpan or search on metacpan
t/02-client.t view on Meta::CPAN
my $base_url;
for (@{(BASE_URLS)}) {
$base_url = $_;
$client = MToken::Client->new(
url => $base_url,
insecure => 1, # IO::Socket::SSL::set_defaults(SSL_verify_mode => 0); # Skip verify for test only!
pwcache => PWCACHE_FILE,
max_redirects => 2,
connect_timeout => 3,
inactivity_timeout => 5,
request_timeout => 10,
view release on metacpan or search on metacpan
lib/Mail/Box/IMAP4/SSL.pm view on Meta::CPAN
package Mail::Box::IMAP4::SSL;
# ABSTRACT: handle IMAP4 folders with SSL
our $VERSION = '0.03'; # VERSION
use superclass 'Mail::Box::IMAP4' => 2.079;
use IO::Socket::SSL 1.12;
use Mail::Reporter 2.079 qw();
use Mail::Transport::IMAP4 2.079 qw();
use Mail::IMAPClient 3.02;
my $imaps_port = 993; # standard port for IMAP over SSL
lib/Mail/Box/IMAP4/SSL.pm view on Meta::CPAN
# trying to create the transport object
my $verify_mode =
$ENV{MAIL_BOX_IMAP4_SSL_NOVERIFY} ? SSL_VERIFY_NONE() : SSL_VERIFY_PEER();
my $ssl_socket = IO::Socket::SSL->new(
Proto => 'tcp',
PeerAddr => $args->{server_name},
PeerPort => $args->{server_port},
SSL_verify_mode => $verify_mode,
);
unless ($ssl_socket) {
Mail::Reporter->log( ERROR => "Couldn't connect to '$args->{server_name}': "
. IO::Socket::SSL::errstr() );
return;
}
my $imap = Mail::IMAPClient->new(
User => $args->{username},
lib/Mail/Box/IMAP4/SSL.pm view on Meta::CPAN
=head1 DESCRIPTION
This is a thin subclass of L<Mail::Box::IMAP4> to provide IMAP over SSL (aka
IMAPS). It hides the complexity of setting up Mail::Box::IMAP4 with
L<IO::Socket::SSL>, L<Mail::IMAPClient> and L<Mail::Transport::IMAP4>.
In all other respects, it resembles L<Mail::Box::IMAP4>. See that module
for documentation.
=for Pod::Coverage init
view release on metacpan or search on metacpan
lib/Mail/Box/IMAP4s.pm view on Meta::CPAN
use strict;
use warnings;
use IO::Socket::IP;
use IO::Socket::SSL qw(SSL_VERIFY_NONE);
sub init($)
{ my ($self, $args) = @_;
$args->{server_port} = 993;
view release on metacpan or search on metacpan
lib/Mail/Transport/POP3.pm view on Meta::CPAN
use strict;
use warnings;
use IO::Socket ();
use IO::Socket::IP ();
use IO::Socket::SSL qw(SSL_VERIFY_NONE);
use Socket qw/$CRLF/;
use Digest::MD5 qw/md5_hex/;
use MIME::Base64 qw/encode_base64/;
lib/Mail/Transport/POP3.pm view on Meta::CPAN
}
my $socket;
if($self->useSSL)
{ my $opts = $self->SSLOptions;
$socket = eval { IO::Socket::SSL->new(PeerAddr => "$host:$port", %$opts) };
}
else
{ $socket = eval { IO::Socket::IP->new("$host:$port") };
}
view release on metacpan or search on metacpan
lib/Mail/DMARC/Iterator.pm view on Meta::CPAN
}
{
# Define function organizational_domain based on which package we have to
# calculate the public suffix.
if (eval { require IO::Socket::SSL::PublicSuffix }) {
my $ps = IO::Socket::SSL::PublicSuffix->default;
*organizational_domain = sub {
return $ps->public_suffix($_[0],1) || $_[0];
};
} elsif (eval { require Domain::PublicSuffix }) {
my $ps = Domain::PublicSuffix->new;
view release on metacpan or search on metacpan
lib/Mail/DMARC/Report/Receive.pm view on Meta::CPAN
my $a_done = $self->config->{imap}{a_done};
my $f_done = $self->config->{imap}{f_done};
my $port = $self->config->{imap}{port} // 993;
if ($port != 143) {
eval "use IO::Socket::SSL"; ## no critic (Eval)
if ( $@ ) {
croak "Can't load IO::Socket::SSL: $!\n";
};
if (defined $self->config->{imap}{SSL_verify_mode}) {
IO::Socket::SSL::set_ctx_defaults(
SSL_verifycn_scheme => 'imap',
SSL_verify_mode => $self->config->{imap}{SSL_verify_mode},
);
}
}
view release on metacpan or search on metacpan
examples/imap_to_mbox.pl view on Meta::CPAN
use warnings;
use strict;
use Mail::IMAPClient; # a nice set of perl libs for imap
use IO::Socket::SSL; # for SSL support
use vars qw($opt_h $opt_u $opt_p $opt_P $opt_s $opt_i $opt_f $opt_m $opt_b
$opt_c $opt_r $opt_w $opt_W $opt_S $opt_D $opt_U $opt_d $opt_I
$opt_n);
examples/imap_to_mbox.pl view on Meta::CPAN
{
# Open an SSL session to the IMAP server
# Handles the SSL setup, and gives us back a socket
my $ssl;
if ($opt_S) {
$ssl=IO::Socket::SSL->new(
PeerHost => "$SERVER:imaps"
# , SSL_version => 'SSLv2' # for older versions of openssl
);
defined $ssl
view release on metacpan or search on metacpan
IMAPFolderSearch.pm view on Meta::CPAN
package Mail::IMAPFolderSearch;
use strict;
use IO::Socket::SSL;
use IO::Socket;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
IMAPFolderSearch.pm view on Meta::CPAN
$imap->logout();
=head1 REQUIRES
IO::Socket, IO::Socket::SSL
=head1 DESCRIPTION
Many e-mail clients such as F<PINE> allow the user to search
for a string within a single folder. Mail::IMAPFolderSearch allows
IMAPFolderSearch.pm view on Meta::CPAN
$imap->{Password} = $args->{Password} || die "Password is required";
my $socket;
if ($imap->{SSL} == 0) {
$socket = IO::Socket::INET->new("$imap->{Server}:$imap->{Port}") || die "Can't connect $!";
} else {
$socket = IO::Socket::SSL->new( SSL_verify_mode => 0x00,
SSL_use_cert => 0,
PeerAddr => $imap->{Server},
PeerPort => $imap->{Port}
) || die "Can't connect $!";
}
IMAPFolderSearch.pm view on Meta::CPAN
Brian Hodges <bhodgescpan ^at^ pelemele ^dot^ com>
=head1 SEE ALSO
perl(1), L<IO::Socket>, L<IO::Socket::SSL>
view release on metacpan or search on metacpan
lib/Mail/IMAPTalk.pm view on Meta::CPAN
The port number on the host to connect to. Defaults to 143 if not supplied
or 993 if not supplied and UseSSL is true.
=item B<UseSSL>
If true, use an IO::Socket::SSL connection. All other SSL_* arguments
are passed to the IO::Socket::SSL constructor.
=item B<Socket>
An existing socket to use as the connection to the IMAP server. If you
supply the B<Socket> option, you should not supply a B<Server> or B<Port>
option.
This is useful if you want to create an SSL socket connection using
IO::Socket::SSL and then pass in the connected socket to the new() call.
It's also useful in conjunction with the C<release_socket()> method
described below for reusing the same socket beyond the lifetime of the IMAPTalk
object. See a description in the section C<release_socket()> method for
more information.
lib/Mail/IMAPTalk.pm view on Meta::CPAN
my $DefaultPort = 143;
my $SocketClass = $DefSocketClass;
if (my $SSLOpt = $Args{UseSSL}) {
$SSLOpt = $SSLOpt eq '1' ? '' : " qw($SSLOpt)";
eval "use IO::Socket::SSL$SSLOpt; 1;" || return undef;
$SocketClass = "IO::Socket::SSL";
$DefaultPort = 993;
$SocketOpts{$_} = $Args{$_} for grep { /^SSL_/ } keys %Args;
}
$SocketOpts{PeerHost} = $Self->{Server} = $Args{Server} || die "No Server name given";
view release on metacpan or search on metacpan
lib/Mail/POP3Client.pm view on Meta::CPAN
my $s = $me->{SOCKET};
$s || do {
if ( $me->{USESSL} ) {
if ( $me->Port() == 110 ) { $me->Port( 995 ); }
eval {
require IO::Socket::SSL;
};
$@ and $me->Message("Could not load IO::Socket::SSL: $@") and return 0;
$s = IO::Socket::SSL->new( PeerAddr => $me->Host(),
PeerPort => $me->Port(),
Proto => "tcp",
Type => SOCK_STREAM,
LocalAddr => $me->LocalAddr(),
Timeout => $me->{TIMEOUT} )
lib/Mail/POP3Client.pm view on Meta::CPAN
$pop2->Pass( "doublesecret" );
$pop2->Connect() >= 0 || die $pop2->Message();
$pop2->Close();
# OR to use your own SSL socket...
my $socket = IO::Socket::SSL->new( PeerAddr => 'pop.securedo.main',
PeerPort => 993,
Proto => 'tcp') || die "No socket!";
my $pop = Mail::POP3Client->new();
$pop->User('somebody');
$pop->Pass('doublesecret');
lib/Mail/POP3Client.pm view on Meta::CPAN
Another warning, it's impossible to differentiate between a timeout
and a failure.
If you pass a true value for USESSL, the port will be changed to 995 if
it is not set or is 110. Otherwise, it will use your port. If USESSL
is true, IO::Socket::SSL will be loaded. If it is not in your perl,
the call to connect will fail.
new returns a valid Mail::POP3Client object in all cases. To test for
a connection failure, you will need to check the number of messages:
-1 indicates a connection error. This will likely change sometime in
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Carp" : "1.20",
"HTTP::Tiny" : "0.013",
"IO::Socket::SSL" : "1.44",
"JSON" : "2.53",
"Moo" : "1.006",
"URI::Escape" : "3.30",
"perl" : "5.008",
"strict" : "0",
view release on metacpan or search on metacpan
lib/Mail/Sender.pm view on Meta::CPAN
my $TLS_notsupported;
BEGIN {
eval <<'END'
use IO::Socket::SSL;# qw(debug4);
use Net::SSLeay;
1;
END
or $TLS_notsupported = $@;
}
lib/Mail/Sender.pm view on Meta::CPAN
}
sub _IO_SOCKET_SSL {
my $msg = shift || '';
$! = 5;
$Error = "IO::Socket::SSL->start_SSL failed: $msg";
return -24, $Error;
}
sub _TLS_UNSUPPORTED_BY_ME {
my $msg = shift || '';
lib/Mail/Sender.pm view on Meta::CPAN
return $self->Error(_STARTTLS($code, $text)) if ($code != 220);
my %ssl_options = (
SSL_version => 'TLSv1',
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE(),
);
if (exists $self->{ssl_version}) {
$ssl_options{SSL_version} = $self->{ssl_version};
}
if (exists $self->{ssl_verify_mode}) {
lib/Mail/Sender.pm view on Meta::CPAN
if (exists $self->{ssl_hostname}) {
$ssl_options{SSL_hostname} = $self->{ssl_hostname};
}
if ($self->{'debug'}) {
$res = IO::Socket::SSL->start_SSL(tied(*$s)->[0], %ssl_options);
}
else {
$res = IO::Socket::SSL->start_SSL($s, %ssl_options);
}
if (!$res) {
return $self->Error(_IO_SOCKET_SSL(IO::Socket::SSL::errstr()));
}
{
my $res = $self->_say_helo($s);
return $res if $res;
lib/Mail/Sender.pm view on Meta::CPAN
# mutating single attributes could get costly!
$sender = $sender->new({auth_encoded => 1});
my $auth_enc = $sender->{auth_encoded}; # reach in to grab
If set to a true value, L<Mail::Sender> attempts to use TLS (encrypted connection)
whenever the server supports it and you have L<IO::Socket::SSL> and L<Net::SSLeay>.
The default value of this option is true! This means that if L<Mail::Sender>
can send the data encrypted, it will.
=head2 authdomain
lib/Mail/Sender.pm view on Meta::CPAN
# -19 = authentication protocol is not implemented
# -20 = all recipients were rejected by the server
# -21 = file specified as an attachment cannot be read
# -22 = failed to open the specified debug file for writing
# -23 = STARTTLS failed (for SSL or TLS encrypted connections)
# -24 = IO::Socket::SSL->start_SSL failed
# -25 = TLS required by the specified options, but the required modules are not available. Need IO::Socket::SSL and Net::SSLeay
# -26 = TLS required by the specified options, but the server doesn't support it
# -27 = unknown encoding specified for the mail body, part or attachment. Only base64, quoted-printable, 7bit and 8bit supported.
my $on_errors = $sender->{on_errors}; # reach in to grab
say $Mail::Sender::Error; # contains a textual description of last error.
lib/Mail/Sender.pm view on Meta::CPAN
=head2 ssl_...
The C<ssl_version>, C<ssl_verify_mode>, C<ssl_ca_path>, C<ssl_ca_file>,
C<ssl_verifycb_name>, C<ssl_verifycn_schema> and C<ssl_hostname> options (if
specified) are passed to L<IO::Socket::SSL/"start_SSL">. The default version is
C<TLSv1> and verify mode is C<IO::Socket::SSL::SSL_VERIFY_NONE>.
If you change the C<ssl_verify_mode> to C<SSL_VERIFY_PEER>, you may need to
specify the C<ssl_ca_file>. If you have L<Mozilla::CA> installed, then setting
it to C<< Mozilla::CA::SSL_ca_file() >> may help.
lib/Mail/Sender.pm view on Meta::CPAN
$sender = $sender->new({tls_allowed => 0}); # false
my $tls = $sender->{tls_allowed}; # reach in to grab
If set to a true value, L<Mail::Sender> will attempt to use TLS (encrypted
connection) whenever the server supports it. This requires that you have
L<IO::Socket::SSL> and L<Net::SSLeay>.
=head2 tls_required
# mutating single attributes could get costly!
$sender = $sender->new({tls_required => 1}); # true, require TLS encryption
view release on metacpan or search on metacpan
lib/Mail/SpamAssassin/SpamdForkScaling.pm view on Meta::CPAN
}
if ($state == PFSTATE_ERROR) {
return;
}
else {
if( Scalar::Util::blessed($self->{server_fh}[0]) eq 'IO::Socket::SSL' ) {
warn "prefork: SSL connection protocol error";
}
warn "prefork: ordered child $kid to accept, but they reported state '$state', killing rogue";
$self->child_error_kill($kid, $sock);
$self->adapt_num_children();
view release on metacpan or search on metacpan
lib/Mail/Toaster/Setup.pm view on Meta::CPAN
=back
=head1 DEPENDENCIES
IO::Socket::SSL
=head1 AUTHOR
Matt Simerson - matt@tnpi.net
view release on metacpan or search on metacpan
lib/Mailru/Cloud.pm view on Meta::CPAN
use URI::Escape;
use File::Basename;
use HTTP::Request;
use JSON::XS;
use Encode;
use IO::Socket::SSL;
use base qw/Mailru::Cloud::Auth/;
our $VERSION = '0.10';
my $BUFF_SIZE = 512;
lib/Mailru/Cloud.pm view on Meta::CPAN
sub __upload_file {
my ($self, $url, $file) = @_;
my $u1 = URI->new($url);
# $IO::Socket::SSL::DEBUG = 5;
my $host = $u1->host;
my $port = $u1->port;
my $path = $u1->path;
my $sock = IO::Socket::SSL->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
) or croak "Cant connect to $host:$port";
binmode $sock;
lib/Mailru/Cloud.pm view on Meta::CPAN
-path => Path to shared resource
=head1 DEPENDENCE
L<LWP::UserAgent>, L<JSON::XS>, L<URI::Escape>, L<IO::Socket::SSL>, L<Encode>, L<HTTP::Request>, L<Carp>, L<File::Basename>
=head1 AUTHORS
=over 4
view release on metacpan or search on metacpan
.travis.yml view on Meta::CPAN
- sudo apt-key adv --keyserver hkp://keyserver.ubuntu.com:80 --recv 7F0CEB10
- echo 'deb http://downloads-distro.mongodb.org/repo/ubuntu-upstart dist 10gen' | sudo tee /etc/apt/sources.list.d/mongodb.list
- sudo apt-get update -q
- sudo apt-get install mongodb-org-server
install:
- "cpanm -n Test::Pod Test::Pod::Coverage IO::Socket::SSL"
- "cpanm -n ODC/Mango-1.16.tar.gz"
- "cpanm -n --installdeps ."
notifications:
email: false
view release on metacpan or search on metacpan
lib/Mango.pm view on Meta::CPAN
All connections will be reset automatically if a new process has been forked,
this allows multiple processes to share the same L<Mango> object safely.
For better scalability (epoll, kqueue) and to provide IPv6, SOCKS5 as well as
TLS support, the optional modules L<EV> (4.0+), L<IO::Socket::IP> (0.20+),
L<IO::Socket::Socks> (0.64+) and L<IO::Socket::SSL> (1.84+) will be used
automatically if they are installed. Individual features can also be disabled
with the C<MOJO_NO_IPV6>, C<MOJO_NO_SOCKS> and C<MOJO_NO_TLS> environment
variables.
=head1 EVENTS
view release on metacpan or search on metacpan
lib/Maplat/Web.pm view on Meta::CPAN
use FileHandle;
use Socket;
use Data::Dumper;
use Maplat::Helpers::Mascot;
use Module::Load;
#use IO::Socket::SSL;
#=!=START-AUTO-INCLUDES
use Maplat::Web::Accesslog;
use Maplat::Web::AutoDialogs;
use Maplat::Web::BaseModule;
view release on metacpan or search on metacpan
"requires" : {
"share" : {
"Archive::Tar" : "0",
"Config" : "0",
"HTTP::Tiny" : "0.044",
"IO::Socket::SSL" : "1.56",
"IO::Zlib" : "0",
"Mojo::DOM58" : "1.00",
"Mozilla::CA" : "0",
"Net::SSLeay" : "1.49",
"Sort::Versions" : "0",
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Carp" : "0",
"HTTP::Tiny" : "0.014",
"IO::Socket::SSL" : "0",
"JSON::MaybeXS" : "1.001000",
"Moo" : "0",
"Moo::Role" : "0",
"Try::Tiny" : "0",
"Types::Standard" : "0",
view release on metacpan or search on metacpan
},
"runtime" : {
"requires" : {
"Carp" : "0",
"HTTP::Tiny" : "0.056",
"IO::Socket::SSL" : "1.42",
"JSON::MaybeXS" : "0",
"JSON::PP" : "0",
"Moo" : "0",
"Moo::Role" : "0",
"Net::SSLeay" : "1.49",
view release on metacpan or search on metacpan
lib/Metabase/Client/Simple.pm view on Meta::CPAN
#pod profile - a Metabase::User::Profile object
#pod secret - a Metabase::User::Secret object
#pod uri - the root URI for the metabase server
#pod
#pod If you use a C<uri> argument with the 'https' scheme, you must have
#pod L<IO::Socket::SSL> and L<Net::SSLeay> installed. You may also
#pod require L<Mozilla::CA>.
#pod
#pod =cut
sub new {
lib/Metabase/Client/Simple.pm view on Meta::CPAN
profile - a Metabase::User::Profile object
secret - a Metabase::User::Secret object
uri - the root URI for the metabase server
If you use a C<uri> argument with the 'https' scheme, you must have
L<IO::Socket::SSL> and L<Net::SSLeay> installed. You may also
require L<Mozilla::CA>.
=head2 submit_fact
$client->submit_fact($fact);
view release on metacpan or search on metacpan
lib/Metabrik/Client/Ssl.pm view on Meta::CPAN
getcertificate => [ qw(uri|OPTIONAL) ],
getcertificate2 => [ qw(host port) ],
},
require_modules => {
'Data::Dumper' => [ ],
'IO::Socket::SSL' => [ ],
'LWP::UserAgent' => [ ],
'LWP::ConnCache' => [ ],
'URI' => [ ],
'Net::SSLeay' => [ ],
'Metabrik::String::Uri' => [ ],
lib/Metabrik/Client/Ssl.pm view on Meta::CPAN
my $port = $parsed->{port};
$self->log->debug("verify_server: trying host [".$parsed->{host}."] ".
"with port [".$parsed->{port}."]");
my $client = IO::Socket::SSL->new(
PeerHost => $parsed->{host},
PeerPort => $parsed->{port},
SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_PEER(),
SSL_verifycn_name => $parsed->{host},
SSL_verifycn_scheme => 'http',
);
if (! defined($client) && ! length($!)) {
$self->log->verbose("verify_server: not verified: [".
$IO::Socket::SSL::SSL_ERROR."]");
return 0;
}
elsif (! defined($client)) {
return $self->log->error("verify_server: connection failed with ".
"error: [$!]");
lib/Metabrik/Client/Ssl.pm view on Meta::CPAN
return 1;
}
#
# Note: works only with IO::Socket::SSL, not with Net::SSL (using Crypt::SSLeay)
#
sub getcertificate {
my $self = shift;
my ($uri) = @_;
lib/Metabrik/Client/Ssl.pm view on Meta::CPAN
}
my $sock = $cc->[0][0];
my %info = ();
# peer_certificate from IO::Socket::SSL/Crypt::SSLeay
if ($sock->can('peer_certificate')) {
my $authority = $sock->peer_certificate('authority'); # issuer
my $owner = $sock->peer_certificate('owner'); # subject
my $commonName = $sock->peer_certificate('commonName'); # cn
my $subjectAltNames = $sock->peer_certificate('subjectAltNames');
view release on metacpan or search on metacpan
lib/MikroTik/API.pm view on Meta::CPAN
=cut
use Carp qw(croak);
use Digest::MD5;
use IO::Socket::IP;
use IO::Socket::SSL;
use Moo;
use MooX::Types::MooseLike::Base qw(Bool CodeRef Int Str);
use Time::Out qw{ timeout };
use Try::Tiny;
use Type::Tiny;
lib/MikroTik/API.pm view on Meta::CPAN
}
if ( $self->get_use_ssl ) {
my $socket
= try {
IO::Socket::SSL->new(
PeerHost => $self->get_host,
PeerPort => $self->get_port,
Proto => 'tcp',
SSL_cipher_list => 'HIGH',
SSL_verify_mode => $self->get_ssl_verify(),
lib/MikroTik/API.pm view on Meta::CPAN
croak sprintf
'failed connect %s:%s or ssl handshake (%s: %s)',
$self->get_host,
$self->get_port,
$_,
IO::Socket::SSL::errstr();
};
# obsolete?
$socket
or croak sprintf
'failed connect %s:%s or ssl handshake (%s: %s)',
$self->get_host,
$self->get_port,
$!,
IO::Socket::SSL::errstr();
$self->set_socket($socket);
}
else {
$self->set_socket(
IO::Socket::IP->new(
view release on metacpan or search on metacpan
t/lib/Test/Apache2/MG.pm view on Meta::CPAN
Apache::TestRequest::user_agent(reset => 1, keep_alive => 1 );
my $ua = Apache::TestRequest->new;
# To get the fingerprint for the certificate in ./t/server.crt, do:
# echo "sha1\$$(openssl x509 -noout -in ./t/server.crt -fingerprint -sha1|perl -pE 's/^.*Fingerprint=|(\w{2})(?:\:?|$)/$1/g')"
$ua->ssl_opts(
# SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE,
# SSL_verify_mode => 0x00
# verify_hostname => 0,
SSL_fingerprint => 'sha1$2FBAB657122088E11FA95E34C1BD9E3635EC535A',
# SSL_version => 'SSLv3',
# SSL_verfifycn_name => 'localhost',
view release on metacpan or search on metacpan
- Fix RT #89000: test broken by indirect base.pm disuse
- delete base.pm from list of expected deps,
patch by Andrew Main (zefram@fysh.org)
- new %Preload rule for Net::HTTPS (e.g. used by LWP::Protocol::https)
- look for IO::Socket::SSL or Net::SSL
- new %Preload rule for YAML::Any
- try to figure out what YAML::Any would have used
(using YAML::Any->implementation)
- as fallback, include anything below YAML
view release on metacpan or search on metacpan
lib/Mojar/Cron/Holiday/UkGov.pm view on Meta::CPAN
has division => 'england-and-wales';
has url => 'https://www.gov.uk/bank-holidays.json';
sub load {
my ($self, %param) = @_;
require IO::Socket::SSL;
my $tx = $self->agent->get($self->url);
if (my $err = $tx->error) {
$self->error(sprintf "Failed to fetch holidays (%u)\n%s",
$err->{advice} // '0', $err->{message} // 'coded error');
view release on metacpan or search on metacpan
lib/Mojar/Google/Analytics.pm view on Meta::CPAN
our $VERSION = 1.112;
use 5.014; # For MIME::Base64::encode_base64url
use Carp 'croak';
use IO::Socket::SSL 1.75;
use Mojar::Auth::Jwt;
use Mojar::Google::Analytics::Request;
use Mojar::Google::Analytics::Response;
use Mojo::UserAgent;
view release on metacpan or search on metacpan
"ExtUtils::MakeMaker" : "6.3"
}
},
"runtime" : {
"requires" : {
"IO::Socket::SSL" : "2.009",
"MIME::Entity" : "5.5",
"Mojar" : "2.1",
"Mojar::Cron" : "0.2",
"Mojolicious" : "9.15",
"Net::SMTP" : "1.28",
view release on metacpan or search on metacpan
- Bumping to 1.0, since it seems pretty stable at this point
- Improved documentation and SYNOPSIS example
- Made t/feedback.t and t/send.t run again
0.07 2015-01-03T23:14:39Z
- IO::Socket::SSL 1.84 required #5
0.06 2015-01-02T12:51:25Z
- Avoid length of undefined values #6
- Use encode_json instead of OO Mojo::JSON #4
0.0402 2013-09-06T23:38:16Z
- Fix Makefile.PL
0.0401 2013-08-26T23:16:28Z
- IO::Socket::SSL 1.75 required for TLS support
0.04 2013-08-16T23:23:59Z
- Change default value for "sandbox" attribute
- Fix NAME in Makefile.PL