From 9d9d2806f068a0a22c985c5660606e90a796cede Mon Sep 17 00:00:00 2001 From: dakkar Date: Wed, 27 Jan 2016 10:21:34 +0000 Subject: dzil works --- Changes | 2 ++ dist.ini | 3 +-- lib/Config/ClawsMail.pm | 3 +++ lib/Config/ClawsMail/Account.pm | 3 +++ lib/Config/ClawsMail/Password.pm | 3 +++ lib/Config/ClawsMail/Server.pm | 3 +++ 6 files changed, 15 insertions(+), 2 deletions(-) create mode 100644 Changes 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 license = Perl_5 copyright_holder = Gianni Ceccarelli @@ -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, -- cgit v1.2.3