--- lib/Search/TokyoDystopia.pm 2008/08/18 19:07:04 27 +++ lib/Search/TokyoDystopia.pm 2008/08/18 19:18:53 28 @@ -50,6 +50,7 @@ tcidbcopy tcidbpath tcidbrnum +tcidbfsiz ); =head1 NAME @@ -179,6 +180,10 @@ my $number_of_records = tcidbrnum( $idb ); +=head2 tcidbfsiz + + my $file_size = tcidbfsiz( $idb ); + =cut =head1 KNOWN BUGS