diff options
| author | dakkar <dakkar@thenautilus.net> | 2016-06-19 17:45:01 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2016-06-19 17:45:01 +0100 |
| commit | 175b96bddb37179ab9d851877fa1e99d31f8471d (patch) | |
| tree | 23e0c0f9eddc7e80fcfdbfee985b9b78d93e9a12 /lib/Sietima/Types.pm | |
| parent | TODO list (diff) | |
| download | Sietima-175b96bddb37179ab9d851877fa1e99d31f8471d.tar.gz Sietima-175b96bddb37179ab9d851877fa1e99d31f8471d.tar.bz2 Sietima-175b96bddb37179ab9d851877fa1e99d31f8471d.zip | |
NoMail role
Diffstat (limited to 'lib/Sietima/Types.pm')
| -rw-r--r-- | lib/Sietima/Types.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/Sietima/Types.pm b/lib/Sietima/Types.pm index af3e1c0..00f0883 100644 --- a/lib/Sietima/Types.pm +++ b/lib/Sietima/Types.pm @@ -3,13 +3,13 @@ use 5.020; use strict; use warnings; use Type::Utils -all; -use Types::Standard qw(Str); +use Types::Standard qw(Str HashRef); use namespace::clean; use Type::Library -base, -declare => qw(Address AddressFromStr EmailMIME Message - Subscriber SubscriberFromAddress SubscriberFromStr + Subscriber SubscriberFromAddress SubscriberFromStr SubscriberFromHashRef Transport MailStore); class_type EmailMIME, { class => 'Email::MIME' }; @@ -31,4 +31,8 @@ declare_coercion SubscriberFromStr, to_type Subscriber, from Str, q{ Sietima::Subscriber->new(raw_address=>(Email::Address->parse($_))[0]) }; +declare_coercion SubscriberFromHashRef, + to_type Subscriber, from HashRef, + q{ Sietima::Subscriber->new($_) }; + 1; |