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