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

Name change to make interface more logically consistent.

Browse Source
This commit is contained in:
Chris 2012-08-09 16:17:18 +01:00
parent 6f756e4131
commit d9cb284fef
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Message/Queue.pm
View File

@ -49,7 +49,7 @@ sub new {
# ============================================================================ # ============================================================================
# Addition and deletion # Addition and deletion
## @method $ add_message($args) ## @method $ queue_message($args)
# Add a message to the message queue. This will add a message to the queue table, # Add a message to the message queue. This will add a message to the queue table,
# ready to be sent at a later time by Message::Sender. The supported arguments are # ready to be sent at a later time by Message::Sender. The supported arguments are
# as follows: # as follows:
@ -73,7 +73,10 @@ sub new {
# between the message beng added and the first point at which it may be # between the message beng added and the first point at which it may be
# sent. Note that, if both this and send_at are specified, the delay is # sent. Note that, if both this and send_at are specified, the delay is
# added to the value specified in send_at. # added to the value specified in send_at.
sub add_message { #
# @param args A hash, or a reference to a hash, of arguments defining the message.
# @return true on success, undef on error.
sub queue_message {
my $self = shift; my $self = shift;
my $args = hash_or_hashref(@_); my $args = hash_or_hashref(@_);
$args -> {"now"} = time(); $args -> {"now"} = time();