summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Changes2
-rw-r--r--dist.ini3
-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
6 files changed, 15 insertions, 2 deletions
diff --git a/Changes b/Changes
new file mode 100644
index 0000000..90be09f
--- /dev/null
+++ b/Changes
@@ -0,0 +1,2 @@
+{{$NEXT}}
+ - first version
diff --git a/dist.ini b/dist.ini
index 7414df4..5b62300 100644
--- a/dist.ini
+++ b/dist.ini
@@ -1,3 +1,4 @@
+name = Config-ClawsMail
author = Gianni Ceccarelli <dakkar@thenautilus.net>
license = Perl_5
copyright_holder = Gianni Ceccarelli <dakkar@thenautilus.net>
@@ -57,8 +58,6 @@ dir = scripts
[ShareDir]
-[MakeMaker]
-
[Manifest]
[License]
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,