mirror of https://github.com/pragma-/pbot.git
31 lines
705 B
Perl
31 lines
705 B
Perl
# File: Constants.pm
|
|
#
|
|
# Purpose: Constants related to message history.
|
|
|
|
# SPDX-FileCopyrightText: 2014-2023 Pragmatic Software <pragma78@gmail.com>
|
|
# SPDX-License-Identifier: MIT
|
|
|
|
package PBot::Core::MessageHistory::Constants;
|
|
|
|
use warnings;
|
|
use strict;
|
|
use constant;
|
|
|
|
my %constants = (
|
|
MSG_CHAT => 0, # PRIVMSG, ACTION
|
|
MSG_JOIN => 1, # JOIN
|
|
MSG_DEPARTURE => 2, # PART, QUIT, KICK
|
|
MSG_NICKCHANGE => 3, # CHANGED NICK
|
|
|
|
LINK_WEAK => 0, # weakly linked AKAs
|
|
LINK_STRONG => 1, # strongly linked AKAs
|
|
);
|
|
|
|
constant->import(\%constants);
|
|
|
|
use Exporter qw/import/;
|
|
our %EXPORT_TAGS = ('all' => [keys %constants]);
|
|
our @EXPORT_OK = (@{$EXPORT_TAGS{all}});
|
|
|
|
1;
|