fix list headers

1 files changed, 8 insertions, 1 deletions

diff --git a/lib/Sietima/Types.pm b/lib/Sietima/Types.pm
index 9f052e3..c6c7381 100644
--- a/lib/Sietima/Types.pm
+++ b/lib/Sietima/Types.pm
@@ -1,7 +1,7 @@
 package Sietima::Types;
 use Sietima::Policy;
 use Type::Utils -all;
-use Types::Standard qw(Str HashRef);
+use Types::Standard qw(Str HashRef Defined Str);
 use namespace::clean;
 use Type::Library
     -base,
@@ -9,6 +9,7 @@ use Type::Library
                    Address AddressFromStr
                    TagName
                    EmailMIME Message
+                   HeaderUri HeaderUriFromThings
                    Subscriber SubscriberFromAddress SubscriberFromStr SubscriberFromHashRef
                    Transport MailStore MailStoreFromHashRef);
 
@@ -124,6 +125,12 @@ An instance of L<< C<Sietima::Message> >>.
 
 class_type Message, { class => 'Sietima::Message' };
 
+class_type HeaderUri, { class => 'Sietima::HeaderURI' };
+
+declare_coercion HeaderUriFromThings,
+    to_type HeaderUri, from Defined,
+q{ Sietima::HeaderURI->new($_) };
+
 =type C<Subscriber>
 
 An instance of L<< C<Sietima::Subscriber> >>.