diff options
| author | dakkar <dakkar@thenautilus.net> | 2016-06-19 17:55:45 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2016-06-19 17:56:35 +0100 |
| commit | 4ba7568909fe620ee9fb99cb6bbe058df8c0061c (patch) | |
| tree | 0e311c42a6901e2ccc6528ad56a54339e78871de /t/lib | |
| parent | NoMail role (diff) | |
| download | Sietima-4ba7568909fe620ee9fb99cb6bbe058df8c0061c.tar.gz Sietima-4ba7568909fe620ee9fb99cb6bbe058df8c0061c.tar.bz2 Sietima-4ba7568909fe620ee9fb99cb6bbe058df8c0061c.zip | |
AvoidDups role
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/Test/Sietima.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/t/lib/Test/Sietima.pm b/t/lib/Test/Sietima.pm index 0661786..48c92cc 100644 --- a/t/lib/Test/Sietima.pm +++ b/t/lib/Test/Sietima.pm @@ -48,12 +48,19 @@ sub make_sietima { }); } +my $maybe = sub { + my ($obj,$method,$arg) = @_; + return $obj unless $arg; + return $obj->$method($arg); +}; + sub make_mail { my (%args) = @_; Email::Stuffer ->from($args{from}||'someone@users.example.com') ->to($args{to}||$return_path) + ->$maybe(cc => $args{cc}) ->subject($args{subject}||'Test Message') ->text_body($args{body}||'some simple message') ->email; |