aboutsummaryrefslogtreecommitdiff
path: root/t/lib/Test/Sietima.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/lib/Test/Sietima.pm')
-rw-r--r--t/lib/Test/Sietima.pm7
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;