/usr/lib/perl5/Locale/Msgcat.pm is in libmsgcat-perl 1.03-5build3.
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 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 | package Locale::Msgcat;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(
);
$VERSION = '1.03';
## Define required constants
#require 'nl_types.ph';
bootstrap Locale::Msgcat $VERSION;
# Preloaded methods go here.
# Autoload methods go after =cut, and are processed by the autosplit program.
1;
__END__
# Below is the stub of documentation for your module. You better edit it!
=head1 NAME
Locale::Msgcat - Perl extension for blah blah blah
=head1 SYNOPSIS
use Locale::Msgcat;
$cat = new Locale::Msgcat;
$rc = $cat->catopen(name, oflag);
$msg = $cat->catgets(set_number, message_number, string);
$rc = $cat->catclose();
=head1 DESCRIPTION
The B<Locale::Msgcat> module allows access to the message catalog functions
which are available on some systems. A new Locale::Msgcat object must first
be created for each catalog which has to be open at a given time.
The B<catopen> operation opens the catalog whose name is given as argument.
The oflag can be either 0 or NL_CAT_LOCALE (usually 1) which is the recommended
value.
The B<catgets> message retrieves message_number for the set_number message
set, and if not found returns string.
The B<catclose> function should be used when access to a catalog is not
needed anymore.
=head1 EXAMPLES
use Locale::Msgcat;
$cat = new Locale::Msgcat;
unless ($cat->catopen("whois.cat", 1)) {
print STDERR "Can't open whois catalog.\n";
exit(1);
}
printf "First message, first set : %s\n", $cat->catgets(1, 1, "not found");
unless ($cat->catclose()) {
print STDERR "Can't close whois catalog.\n";
exit(1);
}
The above example would print the first message from the first message
set found in the whois catalog, or if not found it would print "not found".
=head1 AUTHOR
Christophe Wolfhugel, wolf@pasteur.fr
=head1 SEE ALSO
catopen(3), catclose(3), catgets(3), perl(1).
=cut
1;
|