2021-07-21 06:38:07 +02:00
|
|
|
# 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;
|
2021-07-21 06:38:07 +02:00
|
|
|
|
2023-02-02 02:27:06 +01:00
|
|
|
use warnings;
|
|
|
|
use strict;
|
|
|
|
use constant;
|
2021-07-21 06:38:07 +02:00
|
|
|
|
2023-02-02 02:27:06 +01:00
|
|
|
my %constants = (
|
2021-07-21 06:38:07 +02:00
|
|
|
MSG_CHAT => 0, # PRIVMSG, ACTION
|
|
|
|
MSG_JOIN => 1, # JOIN
|
|
|
|
MSG_DEPARTURE => 2, # PART, QUIT, KICK
|
|
|
|
MSG_NICKCHANGE => 3, # CHANGED NICK
|
2023-02-02 02:27:06 +01:00
|
|
|
|
|
|
|
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}});
|
2021-07-21 06:38:07 +02:00
|
|
|
|
|
|
|
1;
|