lib/Config/ClawsMail/Server.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

package Config::ClawsMail::Server; 
use Moo;
# VERSION 
use Types::Standard qw(Str Enum);
use Config::ClawsMail::Password;
use namespace::clean;
 
# ABSTRACT: Claws-Mail send/receive server 
 
has [qw(host port)] => (
    is => 'ro',
    required => 1,
    isa => Str,
);
 
has [qw(user_id password)] => (
    is => 'ro',
    isa => Str,
);
 
has ssl => (
    is => 'ro',
    isa => Enum[qw(no ssl starttls)],
    default => sub { 'no' },
);
 
sub cleartext_password {
    my ($self) = @_;
    return Config::ClawsMail::Password::cleartext_password($self->password);
}
 
1;