/usr/lib/perl5/Locale/Hebrew.pm is in liblocale-hebrew-perl 1.04-1build2.
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 | # $File: //member/autrijus/Locale-Hebrew/Hebrew.pm $ $Author: autrijus $
# $Revision: #4 $ $Change: 11169 $ $DateTime: 2004/09/18 09:21:22 $
package Locale::Hebrew;
use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use Exporter;
use DynaLoader;
use AutoLoader;
@ISA = qw(Exporter DynaLoader);
@EXPORT = @EXPORT_OK = qw(hebrewflip);
$VERSION = '1.04';
__PACKAGE__->bootstrap($VERSION);
=head1 NAME
Locale::Hebrew - Bidirectional Hebrew support
=head1 VERSION
This document describes version 1.04 of Locale::Hebrew, released
September 18, 2004.
=head1 SYNOPSIS
use Locale::Hebrew;
$visual = hebrewflip($logical);
=head1 DESCRIPTION
This module is based on code from the Unicode Consortium.
The charset on their code was bogus, therefore this module had to work
the real charset from scratch. There might have some mistakes, though.
One function, C<hebrewflip>, is exported by default.
=head1 NOTES
The input string is assumed to be in C<iso-8859-8> encoding by default.
On Perl version 5.8.1 and above, this module can handle Unicode strings
by transparently encoding and decoding it as C<iso-8859-8>. The return
value should still be a Unicode string.
=cut
sub hebrewflip ($) {
if ($] >= 5.008001 and utf8::is_utf8($_[0])) {
require Encode;
return Encode::decode(
'iso-8859-8',
_hebrewflip( Encode::encode('iso-8859-8', $_[0]) )
);
}
goto &_hebrewflip;
}
1;
=head1 ACKNOWLEDGMENTS
Lots of help from Raz Information Systems, L<http://www.raz.co.il/>.
Thanks to Oded S. Resnik for suggesting Unicode support and exporting
C<hebrewflip> by default.
=head1 AUTHORS
Ariel Brosh E<lt>schop@cpan.orgE<gt> is the original author, now passed
away.
Autrijus Tang E<lt>autrijus@autrijus.orgE<gt> is the current maintainer.
=head1 COPYRIGHT
Copyright 2001, 2002 by Ariel Brosh.
Copyright 2003, 2004 by Autrijus Tang.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See L<http://www.perl.com/perl/misc/Artistic.html>
=cut
__END__
# Local variables:
# c-indentation-style: bsd
# c-basic-offset: 4
# indent-tabs-mode: nil
# End:
# vim: expandtab shiftwidth=4:
|