/usr/lib/perl5/Text/Bidi/Constants.pm is in libtext-bidi-perl 2.08-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 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 | use warnings;
use integer;
use strict 'vars';
package Text::Bidi::Constants;
{
$Text::Bidi::Constants::VERSION = '2.08';
}
# ABSTRACT: Constants for Text::Bidi
use Text::Bidi::private;
SYM: for my $sym ( keys %Text::Bidi::private:: ) {
next unless $sym =~ /^FRIBIDI_/;
for my $kind ( qw(Type Mask Par Flag) ) {
if ( $sym =~ /FRIBIDI_\U${kind}\E_([A-Z_]*)$/ ) {
*{"Text::Bidi::${kind}::$1"} = *{"Text::Bidi::private::$sym"};
next SYM;
}
}
if ( $sym =~ /FRIBIDI_JOINING_TYPE_([A-Z])_VAL/ ) {
*{"Text::Bidi::Joining::$1"} = *{"Text::Bidi::private::$sym"};
next SYM;
}
if ( $sym =~ /FRIBIDI_CHAR_([A-Z_]*)$/ ) {
no warnings 'once';
${"Text::Bidi::Char::$1"} = \chr(${"Text::Bidi::private::$sym"});
next SYM;
}
}
1;
__END__
=pod
=head1 NAME
Text::Bidi::Constants - Constants for Text::Bidi
=head1 VERSION
version 2.08
=head1 DESCRIPTION
This module provides various constants defined by the fribidi library. They
can be used with some of the low-level functions in L<Text::Bidi>, such as
L<Text::Bidi/get_bidi_types>, but are of little interest as far as standard
usage is concerned.
Note that, though these are variables, they are read-only.
=over
=item *
Constants of the form B<FRIBIDI_TYPE_FOO> are available as
C<$Text::Bidi::Type::FOO>. See fribidi_get_bidi_type(3) for possible constants.
=item *
Constants of the form B<FRIBIDI_MASK_FOO> are converted to
C<$Text::Bidi::Mask::FOO>. See F<fribidi-bidi-types.h> for possible masks and
how to use them.
=item *
Constants of the form B<FRIBIDI_PAR_FOO> are converted to
C<$Text::Bidi::Par::FOO>. See fribidi_get_par_embedding_levels(3) for
possible constants.
=item *
Constants of the form B<FRIBIDI_FLAG_FOO> are converted to
C<$Text::Bidi::Flag::FOO>. See fribidi_reorder_line(3) and fribidi_shape(3)
for possible constants.
=item *
Constants of the form B<FRIBIDI_JOINING_TYPE_FOO> are converted to
C<$Text::Bidi::Joining::FOO>. See fribidi_get_joining_type(3) for
possible constants.
=item *
Constants of the form B<FRIBIDI_CHAR_FOO> are converted to the character they
represent, and assigned to C<$Text::Bidi::Char::FOO>. See
F<fribidi-unicode.h> for possible constants.
=back
=head1 SEE ALSO
L<Text::Bidi>
=head1 AUTHOR
Moshe Kamensky <kamensky@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Moshe Kamensky.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|