NAME

Bot::Net::Message - encapsulate messages to and from bots

SYNOPSIS

my $message = Bot::Net::Message->new({
    sender_nick     => $from_nick,
    sender_host     => $from_host,
    recipient_nicks => $to_nick,
    message         => $message,
    public          => 0,
});

DESCRIPTION

Just a simple class for encapsulating bot messages.

METHODS

new HASHREF

Create a new message. The HASHREF keys can be the name of any of the accessor methods described for this class. The values are the values to assign to each key.

sender_nick [ NICK ]

This accessor contains the nick of the message's sender. Pass an argument to change the value.

sender_host [ HOST ]

This accessor contains the host of the message's sender. Pass an argument to change the value.

recipient_nicks [ NICKS ]

This accessor returns a reference to an array of nicks that recieved the message. This is generally only set of "private" returns a true value. You may pass a nick or array of nicks to set this value.

recipient_groups [ GROUPS ]

This returns the groups that recieved a public message. This should be set only when "public" returns true. You may pass a group or an array of groups to set here.

message [ MESSAGE ]

This accessor returns the message that was sent. Pass a parameter or array of parameters to alter the message. If an array is passed, the elements of the array will be joined using $, (i.e., $OUTPUT_FIELD_SEPARATOR for those who use English).

public [ BOOL ]

Returns true if the message sent was sent to a chat group rather than directly to a set of nicks. Pass a true or false value in to alter the value. If this is set to true, then "private" will be set to false and vice versa.

private [ BOOL ]

Returns true if the message was sent to a specific set of nicks rather than to a chat group. Pass a true or false value to alter the value. The opposite value will be returned by "public".

AUTHORS

Andrew Sterling Hanenkamp <hanenkamp@cpan.org>

COPYRIGHT AND LICENSE

Copyright 2007 Boomer Consulting, Inc. All Rights Reserved.

This program is free software and may be modified and distributed under the same terms as Perl itself.