1package String::Multibyte::Unicode; 2 3require 5.008; 4use vars qw($VERSION); 5$VERSION = '1.12'; 6 7+{ 8 charset => 'Unicode', 9 regexp => qr/./s, 10 nextchar => sub { pack 'U', 1 + unpack('U', $_[0]) }, 11 cmpchar => sub { $_[0] cmp $_[1] }, 12}; 13 14__END__ 15 16=head1 NAME 17 18String::Multibyte::Unicode - internally used by String::Multibyte 19for Unicode (Perl's internal format) 20 21=head1 SYNOPSIS 22 23 use String::Multibyte; 24 25 $uni = String::Multibyte->new('Unicode'); 26 $unicode_length = $uni->length($unicode_string); 27 28=head1 DESCRIPTION 29 30C<String::Multibyte::Unicode> is used for manipulation of strings 31in Perl's internal format for Unicode. 32 33=head1 CAVEAT 34 35This module requires Perl 5.8.0 or later. 36 37Surrogates, C<U+D800..U+DFFF>, and other non-characters may be included 38in a character range, but may be ignored, warned, or croaked, 39by the C<CORE::> Unicode support. 40 41=head1 SEE ALSO 42 43L<String::Multibyte> 44 45=cut 46