diff options
| author | dakkar <dakkar@thenautilus.net> | 2016-09-10 12:07:11 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2016-09-10 12:07:11 +0100 |
| commit | 7ca898a2ac3512baacd0e0864ce31531fc4f5bb9 (patch) | |
| tree | 3a30a6c6bfe2590af1f4c15557fa90c4b640997c /lib/Sietima.pm | |
| parent | fix RFC link for list headers (diff) | |
| download | Sietima-7ca898a2ac3512baacd0e0864ce31531fc4f5bb9.tar.gz Sietima-7ca898a2ac3512baacd0e0864ce31531fc4f5bb9.tar.bz2 Sietima-7ca898a2ac3512baacd0e0864ce31531fc4f5bb9.zip | |
role to add list command headers
it's a bit wonky, in that it expects either Email::Address
objects (which get turned into mailto: URIs) or strings (which should be
full URIs already), but we can make it better later
Diffstat (limited to 'lib/Sietima.pm')
| -rw-r--r-- | lib/Sietima.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Sietima.pm b/lib/Sietima.pm index 2a3c80b..6a7a83e 100644 --- a/lib/Sietima.pm +++ b/lib/Sietima.pm @@ -23,6 +23,12 @@ has return_path => ( coerce => AddressFromStr, ); +sub list_addresses($self) { + return +{ + return_path => $self->return_path, + }; +} + my $subscribers_array = ArrayRef[ Subscriber->plus_coercions( SubscriberFromAddress, |