diff options
author | dakkar <dakkar@thenautilus.net> | 2023-03-31 16:51:15 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2023-03-31 16:51:15 +0100 |
commit | d2285cc4df35540ec5b3d0f978f3eb4475912bad (patch) | |
tree | 5e7dd2a3789778f5fdc58e4b327daf2b04703eb4 /lib/Sietima/Role/WithPostAddress.pm | |
parent | v1.1.2 (diff) | |
parent | Dzil-build release 1.1.1 (from 8a400b7 on master) (diff) | |
download | Sietima-d2285cc4df35540ec5b3d0f978f3eb4475912bad.tar.gz Sietima-d2285cc4df35540ec5b3d0f978f3eb4475912bad.tar.bz2 Sietima-d2285cc4df35540ec5b3d0f978f3eb4475912bad.zip |
Dzil-build release 1.1.2 (from ddcb163 on master)v1.1.2release/master
Diffstat (limited to 'lib/Sietima/Role/WithPostAddress.pm')
-rw-r--r-- | lib/Sietima/Role/WithPostAddress.pm | 60 |
1 files changed, 44 insertions, 16 deletions
diff --git a/lib/Sietima/Role/WithPostAddress.pm b/lib/Sietima/Role/WithPostAddress.pm index 333c5e3..433b2ec 100644 --- a/lib/Sietima/Role/WithPostAddress.pm +++ b/lib/Sietima/Role/WithPostAddress.pm @@ -4,9 +4,40 @@ use Sietima::Policy; use Sietima::Types qw(Address AddressFromStr); use namespace::clean; -# VERSION +our $VERSION = '1.1.2'; # VERSION # ABSTRACT: role for lists with a posting address + +has post_address => ( + is => 'lazy', + isa => Address, + coerce => AddressFromStr, +); +sub _build_post_address($self) { $self->return_path } + +around list_addresses => sub($orig,$self) { + return +{ + $self->$orig->%*, + post => $self->post_address, + }; +}; + +1; + +__END__ + +=pod + +=encoding UTF-8 + +=head1 NAME + +Sietima::Role::WithPostAddress - role for lists with a posting address + +=head1 VERSION + +version 1.1.2 + =head1 SYNOPSIS my $sietima = Sietima->with_traits('WithPostAddress')->new({ @@ -24,26 +55,23 @@ On its own, this role is not very useful, but other roles (like L<< C<ReplyTo>|Sietima::Role::ReplyTo >>) can have uses for a post address. -=attr C<post_address> +=head1 ATTRIBUTES + +=head2 C<post_address> An L<< C<Email::Address> >> object, defaults to the value of the L<< C<return_path>|Sietima/return_path >> attribute. This is the address that the mailing list receives messages at. -=cut +=head1 AUTHOR -has post_address => ( - is => 'lazy', - isa => Address, - coerce => AddressFromStr, -); -sub _build_post_address($self) { $self->return_path } +Gianni Ceccarelli <dakkar@thenautilus.net> -around list_addresses => sub($orig,$self) { - return +{ - $self->$orig->%*, - post => $self->post_address, - }; -}; +=head1 COPYRIGHT AND LICENSE -1; +This software is copyright (c) 2023 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 |