summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2016-01-27 10:21:34 +0000
committerdakkar <dakkar@thenautilus.net>2016-01-27 10:21:41 +0000
commit9d9d2806f068a0a22c985c5660606e90a796cede (patch)
tree2cba21bb950a01f3a63d1793bc8c5d90e908dd8b /lib
parentInline::Module via dzil (diff)
downloadconfig-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.pm3
-rw-r--r--lib/Config/ClawsMail/Account.pm3
-rw-r--r--lib/Config/ClawsMail/Password.pm3
-rw-r--r--lib/Config/ClawsMail/Server.pm3
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,