Change 11448 by jhi@alpha on 2001/07/23 05:26:50
Doc tweaks.
Affected files ...
... //depot/perl/lib/UnicodeCD.pm#3 edit
Differences ...
==== //depot/perl/lib/UnicodeCD.pm#3 (text) ====
Index: perl/lib/UnicodeCD.pm
--- perl/lib/UnicodeCD.pm.~1~ Sun Jul 22 23:30:06 2001
+++ perl/lib/UnicodeCD.pm Sun Jul 22 23:30:06 2001
@@ -32,9 +32,24 @@
use UnicodeCD 'charscript';
my $charscript = charblock($codepoint);
+ use UnicodeCD 'charblocks';
+ my $charblocks = charblocks();
+
+ use UnicodeCD 'charscripts';
+ my %charscripts = charscripts();
+
+ use UnicodeCD qw(charscript charinrange);
+ my $range = charscript($script);
+ print "looks like $script\n" if charinrange($range, $codepoint);
+
+ use UnicodeCD 'compexcl';
+ my $compexcl = compexcl($codepoint);
+
+ my $unicode_version = UnicodeCD::UnicodeVersion();
+
=head1 DESCRIPTION
-The Unicode module offers a simple interface to the Unicode Character
+The UnicodeCD module offers a simple interface to the Unicode Character
Database.
=cut
@@ -382,7 +397,7 @@
use UnicodeCD qw(charscript charinrange);
$range = charscript('Hiragana');
- print "looks like hiragana\n" if charinrange($range, $code);
+ print "looks like hiragana\n" if charinrange($range, $codepoint);
=cut
End of Patch.
