From e145285f0e1fed1a919ff9979f4a0d4e5502499f Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 23 Jul 2001 05:26:50 +0000
Subject: [PATCH] Doc tweaks.

p4raw-id: //depot/perl@11448
---
 lib/UnicodeCD.pm | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/lib/UnicodeCD.pm b/lib/UnicodeCD.pm
index 2aa833f..e478ba2 100644
--- a/lib/UnicodeCD.pm
+++ b/lib/UnicodeCD.pm
@@ -32,9 +32,24 @@ UnicodeCD - Unicode character database
     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 @@ by L</charblocks> and </charscripts> by using charinrange():
     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
 
-- 
2.7.4