Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Ugh, brainos.

Browse Source
This commit is contained in:
Chris 2012-08-09 15:54:24 +01:00
parent dd22f7bf29
commit 61cca195da
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Message/Queue.pm
View File

@ -76,7 +76,7 @@ sub new {
sub add_message {
my $self = shift;
my $args = hash_or_hashref(@_);
my $args -> {"now"} = time();
$args -> {"now"} = time();
$self -> clear_error();
@ -85,7 +85,7 @@ sub add_message {
$args -> {"send_at"} += $args -> {"delay"} if($args -> {"delay"});
# FUTURE: potentially support other formats here. See also: https://www.youtube.com/watch?v=JENdgiAPD6c however.
my $args -> {"format"} = "plain";
$args -> {"format"} = "plain";
# Force required fields
return $self -> self_error("Email subject not specified") unless($args -> {"subject"});