--- lib/Search/TokyoDystopia.pm	2008/08/18 19:04:10	26
+++ lib/Search/TokyoDystopia.pm	2008/08/18 19:07:04	27
@@ -49,6 +49,7 @@
 tcidbvanish
 tcidbcopy
 tcidbpath
+tcidbrnum
 );
 
 =head1 NAME
@@ -174,6 +175,10 @@
 
   my $path = tcidbpath( $idb );
 
+=head2 tcidbrnum
+
+  my $number_of_records = tcidbrnum( $idb );
+
 =cut
 
 =head1 KNOWN BUGS