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
package Config::ClawsMail::Server; use v5.26;use Moo;# VERSION use Types::Standard qw(Str Enum);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' },); 1;