diff options
| author | dakkar <dakkar@thenautilus.net> | 2016-01-27 10:21:34 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2016-01-27 10:21:41 +0000 |
| commit | 9d9d2806f068a0a22c985c5660606e90a796cede (patch) | |
| tree | 2cba21bb950a01f3a63d1793bc8c5d90e908dd8b /lib | |
| parent | Inline::Module via dzil (diff) | |
| download | config-clawsmail-9d9d2806f068a0a22c985c5660606e90a796cede.tar.gz config-clawsmail-9d9d2806f068a0a22c985c5660606e90a796cede.tar.bz2 config-clawsmail-9d9d2806f068a0a22c985c5660606e90a796cede.zip | |
dzil works
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Config/ClawsMail.pm | 3 | ||||
| -rw-r--r-- | lib/Config/ClawsMail/Account.pm | 3 | ||||
| -rw-r--r-- | lib/Config/ClawsMail/Password.pm | 3 | ||||
| -rw-r--r-- | lib/Config/ClawsMail/Server.pm | 3 |
4 files changed, 12 insertions, 0 deletions
diff --git a/lib/Config/ClawsMail.pm b/lib/Config/ClawsMail.pm index 4543a18..decb99f 100644 --- a/lib/Config/ClawsMail.pm +++ b/lib/Config/ClawsMail.pm @@ -1,11 +1,14 @@ package Config::ClawsMail; use Moo; +# VERSION use Config::INI::Reader; use Config::ClawsMail::Account; use Types::Standard qw(HashRef InstanceOf); use Path::Tiny; use namespace::clean; +# ABSTRACT: Claws-Mail config parser + has accounts => ( is => 'ro', isa => HashRef[InstanceOf['Config::ClawsMail::Account']], diff --git a/lib/Config/ClawsMail/Account.pm b/lib/Config/ClawsMail/Account.pm index c00bad4..4f51273 100644 --- a/lib/Config/ClawsMail/Account.pm +++ b/lib/Config/ClawsMail/Account.pm @@ -1,10 +1,13 @@ package Config::ClawsMail::Account; use Moo; +# VERSION use 5.020; use Types::Standard qw(Str InstanceOf); use Config::ClawsMail::Server; use namespace::clean; +# ABSTRACT: Claws-Mail account + has [qw(account_name name address)] => ( is => 'ro', required => 1, diff --git a/lib/Config/ClawsMail/Password.pm b/lib/Config/ClawsMail/Password.pm index 867fbe4..ec6f8af 100644 --- a/lib/Config/ClawsMail/Password.pm +++ b/lib/Config/ClawsMail/Password.pm @@ -1,10 +1,13 @@ package Config::ClawsMail::Password; use strict; use warnings; +# VERSION use Config::ClawsMail::Password::Inline 'C'; use MIME::Base64; use namespace::clean -except => [qw(decrypt_password)]; +# ABSTRACT: Claws-Mail password decrypter + sub cleartext_password { my ($password) = @_; return decrypt_password(decode_base64($password)); diff --git a/lib/Config/ClawsMail/Server.pm b/lib/Config/ClawsMail/Server.pm index e3eefab..a996e4f 100644 --- a/lib/Config/ClawsMail/Server.pm +++ b/lib/Config/ClawsMail/Server.pm @@ -1,9 +1,12 @@ 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, |