--- trunk/lib/WebPAC/Normalize.pm	2006/12/10 12:56:59	788
+++ trunk/lib/WebPAC/Normalize.pm	2007/01/30 18:21:17	791
@@ -21,6 +21,7 @@
 	split_rec_on
 
 	get set
+	count
 /;
 
 use warnings;
@@ -41,11 +42,11 @@
 
 =head1 VERSION
 
-Version 0.25
+Version 0.26
 
 =cut
 
-our $VERSION = '0.25';
+our $VERSION = '0.26';
 
 =head1 SYNOPSIS
 
@@ -1289,6 +1290,18 @@
 	return $v;
 }
 
+=head2 count
+
+  if ( count( @result ) == 1 ) {
+  	# do something if only 1 result is there
+  }
+
+=cut
+
+sub count {
+	warn "## count ",dump(@_),$/;
+	return @_ . '';
+}
 
 # END
 1;