mirror of
https://github.com/pragma-/pbot.git
synced 2025-02-09 19:14:13 +01:00
27 lines
496 B
Perl
27 lines
496 B
Perl
|
# File: Constants.pm
|
||
|
|
#
|
||
|
|
# Purpose: Constants related to message history.
|
||
|
|
|
||
|
|
package PBot::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;
|