Char::Class::AlphabetChar::Class::HanChar::Class::HiraganaChar::Class::JaInputChar::Class::ISOIECTR10176Char::Class::JISX0221Char::Class::JISX4051Char::Class::JISX4052Char::Class::KatakanaChar::Class::KanaChar::Class::RFC1815Char::Class::UCSChar::Class::XMLInXML_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.