diff options
Diffstat (limited to 'lib/Sietima/Types.pm')
-rw-r--r-- | lib/Sietima/Types.pm | 9 |
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> >>. |