aboutsummaryrefslogtreecommitdiff
path: root/lib/Sietima/Role/WithMailStore.pm
diff options
context:
space:
mode:
authordakkar <dakkar@thenautilus.net>2019-04-29 15:44:40 +0100
committerdakkar <dakkar@thenautilus.net>2019-04-29 15:44:40 +0100
commit308c885f76632b56d4841968fe4a8287710be8ce (patch)
tree96df34b4e4959e839415e2c635111d669ccaf1b7 /lib/Sietima/Role/WithMailStore.pm
parentv1.0.5 (diff)
parentDzil-build release 1.0.4 (from 402b4b8 on master) (diff)
downloadSietima-28651abb6bab526b3505d06f1535686c32100596.tar.gz
Sietima-28651abb6bab526b3505d06f1535686c32100596.tar.bz2
Sietima-28651abb6bab526b3505d06f1535686c32100596.zip
Dzil-build release 1.0.5 (from ad3b210 on master)v1.0.5
Diffstat (limited to 'lib/Sietima/Role/WithMailStore.pm')
-rw-r--r--lib/Sietima/Role/WithMailStore.pm48
1 files changed, 38 insertions, 10 deletions
diff --git a/lib/Sietima/Role/WithMailStore.pm b/lib/Sietima/Role/WithMailStore.pm
index 7ca4b4e..c0cf995 100644
--- a/lib/Sietima/Role/WithMailStore.pm
+++ b/lib/Sietima/Role/WithMailStore.pm
@@ -4,9 +4,33 @@ use Sietima::Policy;
use Sietima::Types qw(MailStore MailStoreFromHashRef);
use namespace::clean;
-# VERSION
+our $VERSION = '1.0.5'; # VERSION
# ABSTRACT: role for lists with a store for messages
+
+has mail_store => (
+ is => 'ro',
+ isa => MailStore,
+ required => 1,
+ coerce => MailStoreFromHashRef,
+);
+
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+Sietima::Role::WithMailStore - role for lists with a store for messages
+
+=head1 VERSION
+
+version 1.0.5
+
=head1 SYNOPSIS
my $sietima = Sietima->with_traits('WithMailStore')->new({
@@ -25,7 +49,9 @@ On its own, this role is not very useful, but other roles (like L<<
C<SubscriberOnly::Moderate>|Sietima::Role::SubscriberOnly::Moderate
>>) can have uses for an object that can persistently store messages.
-=attr C<mail_store>
+=head1 ATTRIBUTES
+
+=head2 C<mail_store>
Required instance of an object that consumes the L<<
C<Sietima::MailStore> >> role. Instead of passing an instance, you can
@@ -33,13 +59,15 @@ pass a hashref (like in the L</synopsis>): the C<class> key provides
the class name, and the rest of the hash will be passed to its
constructor.
-=cut
+=head1 AUTHOR
-has mail_store => (
- is => 'ro',
- isa => MailStore,
- required => 1,
- coerce => MailStoreFromHashRef,
-);
+Gianni Ceccarelli <dakkar@thenautilus.net>
-1;
+=head1 COPYRIGHT AND LICENSE
+
+This software is copyright (c) 2017 by Gianni Ceccarelli <dakkar@thenautilus.net>.
+
+This is free software; you can redistribute it and/or modify it under
+the same terms as the Perl 5 programming language system itself.
+
+=cut