From 7ca898a2ac3512baacd0e0864ce31531fc4f5bb9 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 10 Sep 2016 12:07:11 +0100
Subject: 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
---
 lib/Sietima.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lib/Sietima.pm')

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,
-- 
cgit v1.2.3