Char::Class::Alphabet
Char::Class::Han
Char::Class::Hiragana
Char::Class::JaInput
Char::Class::ISOIECTR10176
Char::Class::JISX0221
Char::Class::JISX4051
Char::Class::JISX4052
Char::Class::Katakana
Char::Class::Kana
Char::Class::RFC1815
Char::Class::UCS
Char::Class::XML
InXML_NameStartChar10
(XML 1.0 name start characters) and
InXMLNameChar
(XML 1.1 name characters).Alternatively, just putting all files in the directory lib
into your directory for Perl modules should work as well.
All Perl modules in this package are written in pure Perl.
use Char::Class::XML qw/InXML_NameStartChar10 InXMLNameChar10/;
if ($name !~ /\A\p{InXML_NameStartChar10}\p{InXMLNameChar10}*\z/) {
die "$0: $name: This is not an XML 1.0 Name";
}
The development version is available in the CVS repository.
© ‐
わかば (Wakaba)
<w@suika.fam.cx>
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.