## This file is auto-generated (at 2007-07-19T12:21:04Z). ## Do not edit by hand! use strict; package Char::Class::RFC1815; our $VERSION = '1.01'; use Exporter; use vars qw(@EXPORT_OK @ISA $VERSION); @ISA = qw(Exporter); =head1 NAME Char::Class::RFC1815 - Regular Expression Character Classes - C =head1 DESCRIPTION Two ISO/IEC 10646 character repertories, defined by RFC 1815. RFC 1815 defines two profiled text encoding schemes based on ISO/IEC 10646. Because of the size of full ISO/IEC 10646 character set, full implemention of it is (or WAS at least at the days of RFC 1815 published) too difficult, so a couple of profiled (restricted) ISO/IEC 10646-base coded character sets were defined (as RFC 1815 did). (For details of these schemes, see RFC 1815.) Both encoding schemes (and most of such schemes) uses two octet BMP form (ie. UCS-2), the only realistic encoding form of those days. Today it should be obsoleted. But their repertories can be useful for interoperability purpose even today. =over 4 =item ISO-10646 The repertory of charset C is same as ISO/IEC 8859-1 (MIME name: C. Aka Latin-1). In most situation you can simply write C<[-ÿ]>. =item ISO-10646-J-1 The repertory of charset C is superset of BASIC JAPANESE plus FULLWIDTH ALPHANUMERICS plus HALFWIDTH KATAKANA, defined by JIS X 0221 Appendix 1. This repertory includes all available characters of Japanized Windoze NT 3.51. (Note that more characters are available in later versions of Windoze NT.) Description of RFC 1815 does mention any character of U+21xx and U+24xx. It would be a bug, since ISO-10646-J-1 is defined as alternate of JIS X 0208, including those characters. This module also includes those characters. Since description of RFC 1815 is ambitious, most of character list of C is made from the list of JIS X 0221 Appendix 1. (Note that RFC 1815 is not referring JIS X 0221-1995 because of schedule of both memo/standard.) =back =cut sub import ($;@) { my ($self, @sub) = (shift, @_); for (@sub) { no strict 'refs'; *{'main::'.$_} = \&{$_}; } $Exporter::ExportLevel = 1; $self->SUPER::import (@_); $Exporter::ExportLevel = 0; } @EXPORT_OK = qw(InRFC1815ISO10646J1); sub InRFC1815ISO10646J1 { < =back =cut =head1 EXAMPLE use Char::Class::RFC1815; if ($s =~ /\p{InISO10646J1}/) { print "Match!\n"; } =head1 SEE ALSO RFC 1815 L L =head1 LICENSE Copyright 2007 Wakaba This library and the library generated by it is free software; you can redistribute them and/or modify them under the same terms as Perl itself. =cut 1; ### RFC1815.pm ends here