view release on metacpan or  search on metacpan

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

package Mail::Box::IMAP4s;{
our $VERSION = '3.009';
}

use base 'Mail::Box::IMAP4';

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;
	$args->{starttls}    = 0;
    $self->SUPER::init($args);
}

sub type() {'imap4s'}