[Module-build-checkins] Module-Build/t/bundled/Tie CPHash.pm,1.1,1.2

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/t/bundled/Tie
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9318/t/bundled/Tie

Modified Files:
	CPHash.pm 
Log Message:
Update to version 1.02

Index: CPHash.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/bundled/Tie/CPHash.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- CPHash.pm	25 Feb 2006 15:27:27 -0000	1.1
+++ CPHash.pm	21 Mar 2006 13:27:29 -0000	1.2
@@ -3,9 +3,9 @@
 #
 # Copyright 1997 Christopher J. Madsen
 #
-# Author: Christopher J. Madsen <chr...@ge...>
+# Author: Christopher J. Madsen <cj...@po...>
 # Created: 08 Nov 1997
-# Version: 1.001 (25-Oct-1998)
+# $Revision$  $Date$
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the same terms as Perl itself.
@@ -27,11 +27,7 @@
 #=====================================================================
 # Package Global Variables:
 
-BEGIN
-{
-    # Convert RCS revision number to d.ddd format:
-    $VERSION = sprintf('%d.%03d', '1.001 ' =~ /(\d+)\.(\d+)/);
-} # end BEGIN
+$VERSION = '1.02';
 
 #=====================================================================
 # Tied Methods:
@@ -85,6 +81,15 @@
 } # end NEXTKEY
 
 #---------------------------------------------------------------------
+# SCALAR this
+#     Return bucket usage information for the hash (0 if empty).
+
+sub SCALAR
+{
+    scalar %{$_[0]};
+} # end SCALAR
+
+#---------------------------------------------------------------------
 # EXISTS this, key
 #     Verify that *key* exists with the tied hash *this*.
 
@@ -147,8 +152,8 @@
 
 =head1 DESCRIPTION
 
-The B<Tie::CPHash> provides a hash table that is case preserving but
-case insensitive.  This means that
+The B<Tie::CPHash> module provides a hash table that is case
+preserving but case insensitive.  This means that
 
     $cphash{KEY}    $cphash{key}
     $cphash{Key}    $cphash{keY}
@@ -180,7 +185,7 @@
 
 =head1 AUTHOR
 
-Christopher J. Madsen E<lt>F<chr...@ge...>E<gt>
+Christopher J. Madsen E<lt>F<cj...@po...>E<gt>
 
 =cut