diff options
| author | dakkar <dakkar@thenautilus.net> | 2016-06-19 18:22:14 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2016-06-19 18:22:14 +0100 |
| commit | 1ea33ee05cc3f681be561c6a0b9f87846406c24a (patch) | |
| tree | abac91e193385901adccdd42c335c22210184ec2 /t/lib/Test/Sietima.pm | |
| parent | AvoidDups role (diff) | |
| download | Sietima-1ea33ee05cc3f681be561c6a0b9f87846406c24a.tar.gz Sietima-1ea33ee05cc3f681be561c6a0b9f87846406c24a.tar.bz2 Sietima-1ea33ee05cc3f681be561c6a0b9f87846406c24a.zip | |
Debounce role
Diffstat (limited to 't/lib/Test/Sietima.pm')
| -rw-r--r-- | t/lib/Test/Sietima.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/t/lib/Test/Sietima.pm b/t/lib/Test/Sietima.pm index 48c92cc..549d654 100644 --- a/t/lib/Test/Sietima.pm +++ b/t/lib/Test/Sietima.pm @@ -54,6 +54,15 @@ my $maybe = sub { return $obj->$method($arg); }; +my $mapit = sub { + my ($obj,$method,$arg) = @_; + return $obj unless $arg; + for my $k (keys %{$arg}) { + $obj = $obj->$method($k, $arg->{$k}); + } + return $obj; +}; + sub make_mail { my (%args) = @_; @@ -61,6 +70,7 @@ sub make_mail { ->from($args{from}||'someone@users.example.com') ->to($args{to}||$return_path) ->$maybe(cc => $args{cc}) + ->$mapit(header => $args{headers}) ->subject($args{subject}||'Test Message') ->text_body($args{body}||'some simple message') ->email; |