pbot/lib/PBot/Core/MessageHistory/Constants.pm

31 lines
705 B
Perl
Raw Normal View History

# File: Constants.pm
#
# Purpose: Constants related to message history.
2023-02-21 06:31:52 +01:00
# SPDX-FileCopyrightText: 2014-2023 Pragmatic Software <pragma78@gmail.com>
# SPDX-License-Identifier: MIT
2021-07-21 07:44:51 +02:00
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;