/usr/share/perl5/POE/Component/IRC/Constants.pm is in libpoe-component-irc-perl 6.88+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | package POE::Component::IRC::Constants;
BEGIN {
$POE::Component::IRC::Constants::AUTHORITY = 'cpan:HINRIK';
}
$POE::Component::IRC::Constants::VERSION = '6.88';
use strict;
use warnings FATAL => 'all';
require Exporter;
use base qw(Exporter);
our @EXPORT_OK = qw(
PCI_REFCOUNT_TAG PRI_LOGIN PRI_HIGH PRI_NORMAL MSG_PRI MSG_TEXT
CMD_PRI CMD_SUB
);
our %EXPORT_TAGS = ( ALL => [@EXPORT_OK] );
use constant {
# The name of the reference count P::C::I keeps in client sessions.
PCI_REFCOUNT_TAG => 'P::C::I registered',
# Message priorities.
PRI_LOGIN => 10, # PASS/NICK/USER messages must go first.
PRI_HIGH => 20, # KICK/MODE etc. is more important than chatter.
PRI_NORMAL => 30, # Random chatter.
MSG_PRI => 0, # Queued message priority.
MSG_TEXT => 1, # Queued message text.
# RCC: Since most of the commands are data driven, I have moved their
# event/handler maps here and added priorities for each data driven
# command. The priorities determine message importance when messages
# are queued up. Lower ones get sent first.
CMD_PRI => 0, # Command priority.
CMD_SUB => 1, # Command handler.
};
1;
=encoding utf8
=head1 NAME
POE::Component::IRC::Constants - Defines constants required by
L<POE::Component::IRC|POE::Component::IRC>
=head1 SYNOPSIS
use POE::Component::IRC::Constants qw(:ALL);
=head1 DESCRIPTION
POE::Component::IRC::Constants defines constants required by
L<POE::Component::IRC|POE::Component::IRC> and derived sub-classes.
=head1 AUTHOR
Chris Williams <chris@bingosnet.co.uk>
=head1 SEE ALSO
L<POE::Component::IRC|POE::Component::IRC>
=cut
|