/usr/share/perl5/String/ToIdentifier/EN/Unicode.pm is in libstring-toidentifier-en-perl 0.11-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 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 | package String::ToIdentifier::EN::Unicode;
BEGIN {
$String::ToIdentifier::EN::Unicode::AUTHORITY = 'cpan:RKITOVER';
}
{
$String::ToIdentifier::EN::Unicode::VERSION = '0.11';
}
use strict;
use warnings;
use base 'String::ToIdentifier::EN';
use Exporter 'import';
=encoding UTF-8
=head1 NAME
String::ToIdentifier::EN::Unicode - Convert Strings to Unicode English Program
Identifiers
=head1 SYNOPSIS
use utf8;
use String::ToIdentifier::EN::Unicode 'to_identifier';
to_identifier 'foo亰bar∑'; # foo亰BarNDashArySummation
=head1 DESCRIPTION
This module is a subclass L<String::ToIdentifier::EN>, see that module for
details.
Unlike L<String::ToIdentifier::EN>, this module will not convert the Unicode
subset of C<\w> into ASCII.
=head1 EXPORT
Optionally exports the L<to_identifier|String::ToIdentifier::EN/to_identifier>
function.
=cut
our @EXPORT_OK = qw/to_identifier/;
sub to_identifier {
return __PACKAGE__->string_to_identifier(@_);
}
sub _non_identifier_char {
return qr/\W/;
}
=head1 SEE ALSO
L<String::ToIdentifier::EN>,
L<Text::Unidecode>,
L<Lingua::EN::Inflect::Phrase>
=head1 AUTHOR
Rafael Kitover, C<< <rkitover@cpan.org> >>
=head1 BUGS
Please report any bugs or feature requests to C<bug-string-toidentifier-en at
rt.cpan.org>, or through the web interface at
L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=String-ToIdentifier-EN>. I
will be notified, and then you'll automatically be notified of progress on your
bug as I make changes.
=head1 REPOSITORY
L<http://github.com/rkitover/string-toidentifier-en>
=head1 SUPPORT
More information on this module is available at:
=over 4
=item * RT: CPAN's request tracker (report bugs here)
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=String-ToIdentifier-EN>
=item * AnnoCPAN: Annotated CPAN documentation
L<http://annocpan.org/dist/String-ToIdentifier-EN>
=item * CPAN Ratings
L<http://cpanratings.perl.org/d/String-ToIdentifier-EN>
=item * MetaCPAN
L<https://metacpan.org/module/String::ToIdentifier::EN>
=item * Search CPAN
L<http://search.cpan.org/dist/String-ToIdentifier-EN/>
=back
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2011 Rafael Kitover <rkitover@cpan.org>.
This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.
See http://dev.perl.org/licenses/ for more information.
=cut
1; # End of String::ToIdentifier::EN::Unicode
|