view release on metacpan or  search on metacpan

lib/Mail/Box/IMAP4s.pm  view on Meta::CPAN

our $VERSION = '4.01';
}

use parent 'Mail::Box::IMAP4';

use strict;
use warnings;

use Log::Report     'mail-box-imap4', import => [];

use IO::Socket::SSL qw/SSL_VERIFY_NONE/;

#--------------------

sub init($)
{	my ($self, $args) = @_;
	$args->{server_port} = 993;
	$args->{starttls}    = 0;
	$self->SUPER::init($args);
}