diff options
author | dakkar <dakkar@thenautilus.net> | 2016-01-26 18:12:37 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2016-01-26 18:12:37 +0000 |
commit | f25286a60b8ad26994c5c88c60b7c0ec998ae803 (patch) | |
tree | 170002cc56ba177f5ea8e54eea4ccea1ff3e9fef /lib/Config/ClawsMail/Server.pm | |
download | config-clawsmail-f25286a60b8ad26994c5c88c60b7c0ec998ae803.tar.gz config-clawsmail-f25286a60b8ad26994c5c88c60b7c0ec998ae803.tar.bz2 config-clawsmail-f25286a60b8ad26994c5c88c60b7c0ec998ae803.zip |
first commit, it works already
Diffstat (limited to 'lib/Config/ClawsMail/Server.pm')
-rw-r--r-- | lib/Config/ClawsMail/Server.pm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/lib/Config/ClawsMail/Server.pm b/lib/Config/ClawsMail/Server.pm new file mode 100644 index 0000000..e3eefab --- /dev/null +++ b/lib/Config/ClawsMail/Server.pm @@ -0,0 +1,29 @@ +package Config::ClawsMail::Server; +use Moo; +use Types::Standard qw(Str Enum); +use Config::ClawsMail::Password; +use namespace::clean; + +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; |