mirror of https://github.com/pragma-/pbot.git
27 lines
502 B
Perl
27 lines
502 B
Perl
# File: Constants.pm
|
|
#
|
|
# Purpose: Constants related to message history.
|
|
|
|
package PBot::Core::MessageHistory::Constants;
|
|
|
|
use Exporter qw/import/;
|
|
|
|
our @EXPORT = ();
|
|
|
|
our %EXPORT_TAGS = (
|
|
'all' => [qw/MSG_CHAT MSG_JOIN MSG_DEPARTURE MSG_NICKCHANGE/],
|
|
);
|
|
|
|
our @EXPORT_OK = (
|
|
@{ $EXPORT_TAGS{all} },
|
|
);
|
|
|
|
use constant {
|
|
MSG_CHAT => 0, # PRIVMSG, ACTION
|
|
MSG_JOIN => 1, # JOIN
|
|
MSG_DEPARTURE => 2, # PART, QUIT, KICK
|
|
MSG_NICKCHANGE => 3, # CHANGED NICK
|
|
};
|
|
|
|
1;
|