/usr/share/perl5/MARC/Charset/Constants.pm is in libmarc-charset-perl 1.35-2.
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 | package MARC::Charset::Constants;
=head1 NAME
MARC::Charset::Constants - constants for MARC::Charset
=head1 SYNOPSIS
use MARC::Charset::Constants qw(:all);
=head1 DESCRIPTION
MARC::Charset needs to recognize various codes which are given
descriptive names and assigned to constants in this package.
=cut
use strict;
use warnings;
use base qw( Exporter );
use constant ESCAPE => chr(0x1B);
use constant SINGLE_G0_A => chr(0x28);
use constant SINGLE_G0_B => chr(0x2C);
use constant MULTI_G0_A => chr(0x24);
use constant MULTI_G0_B => chr(0x24) . chr(0x2C);
use constant SINGLE_G1_A => chr(0x29);
use constant SINGLE_G1_B => chr(0x2D);
use constant MULTI_G1_A => chr(0x24) . chr(0x29);
use constant MULTI_G1_B => chr(0x24) . chr(0x2D);
use constant GREEK_SYMBOLS => chr(0x67);
use constant SUBSCRIPTS => chr(0x62);
use constant SUPERSCRIPTS => chr(0x70);
use constant ASCII_DEFAULT => chr(0x73);
use constant BASIC_ARABIC => chr(0x33);
use constant EXTENDED_ARABIC => chr(0x34);
use constant BASIC_LATIN => chr(0x42);
use constant EXTENDED_LATIN => chr(0x45);
use constant CJK => chr(0x31);
use constant BASIC_CYRILLIC => chr(0x4E);
use constant EXTENDED_CYRILLIC => chr(0x51);
use constant BASIC_GREEK => chr(0x53);
use constant BASIC_HEBREW => chr(0x32);
our %EXPORT_TAGS = ( all => [ qw(
ESCAPE GREEK_SYMBOLS SUBSCRIPTS SUPERSCRIPTS ASCII_DEFAULT
SINGLE_G0_A SINGLE_G0_B MULTI_G0_A MULTI_G0_B SINGLE_G1_A
SINGLE_G1_B MULTI_G1_A MULTI_G1_B BASIC_ARABIC
EXTENDED_ARABIC BASIC_LATIN EXTENDED_LATIN CJK BASIC_CYRILLIC
EXTENDED_CYRILLIC BASIC_GREEK BASIC_HEBREW) ]);
our @EXPORT_OK = qw(
ESCAPE GREEK_SYMBOLS SUBSCRIPTS SUPERSCRIPTS ASCII_DEFAULT
SINGLE_G0_A SINGLE_G0_B MULTI_G0_A MULTI_G0_B SINGLE_G1_A
SINGLE_G1_B MULTI_G1_A MULTI_G1_B BASIC_ARABIC
EXTENDED_ARABIC BASIC_LATIN EXTENDED_LATIN CJK BASIC_CYRILLIC
EXTENDED_CYRILLIC BASIC_GREEK BASIC_HEBREW);
sub charset_name
{
my $charset = shift;
return 'GREEK_SYMBOLS' if $charset eq GREEK_SYMBOLS;
return 'SUBSCRIPTS' if $charset eq SUBSCRIPTS;
return 'SUPERSCRIPTS' if $charset eq SUPERSCRIPTS;
return 'ASCII_DEFAULT' if $charset eq ASCII_DEFAULT;
return 'BASIC_ARABIC' if $charset eq BASIC_ARABIC;
return 'EXTENDED_ARABIC' if $charset eq EXTENDED_ARABIC;
return 'BASIC_LATIN' if $charset eq BASIC_LATIN;
return 'EXTENDED_LATIN' if $charset eq EXTENDED_LATIN;
return 'CJK' if $charset eq CJK;
return 'BASIC_CYRILLIC' if $charset eq BASIC_CYRILLIC;
return 'EXTENDED_CYRILLIC' if $charset eq EXTENDED_CYRILLIC;
return 'BASIC_GREEK' if $charset eq BASIC_GREEK;
return 'BASIC_HEBREW' if $charset eq BASIC_HEBREW;
}
1;
|