--- trunk/Estraier.pm	2006/01/28 19:18:13	98
+++ trunk/Estraier.pm	2006/01/28 19:41:59	100
@@ -50,6 +50,8 @@
 	$cond->set_phrase("rainbow AND lullaby");
 
 	my $nres = $node->search($cond, 0);
+	print "Got ", $nres->hits, " results\n";
+
 	if (defined($nres)) {
 		# for each document in results
 		for my $i ( 0 ... $nres->doc_num - 1 ) {
@@ -734,6 +736,9 @@
 
   print $res->doc_num;
 
+This will return real number of documents (limited by C<max>).
+If you want to get total number of hits, see C<hits>.
+
 =cut
 
 sub doc_num {
@@ -765,7 +770,7 @@
 
 Return specific hint from results.
 
-  print $rec->hint( 'VERSION' );
+  print $res->hint( 'VERSION' );
 
 Possible hints are: C<VERSION>, C<NODE>, C<HIT>, C<HINT#n>, C<DOCNUM>, C<WORDNUM>,
 C<TIME>, C<LINK#n>, C<VIEW>.
@@ -778,11 +783,11 @@
 	return $self->{hints}->{$key};
 }
 
-=head2 hints
+=head2 hits
 
 More perlish version of C<hint>. This one returns hash.
 
-  my %hints = $rec->hints;
+  my %hints = $res->hints;
 
 =cut
 
@@ -791,6 +796,25 @@
 	return $self->{hints};
 }
 
+=head2 hits
+
+Syntaxtic sugar for total number of hits for this query
+
+  print $res->hits;
+
+It's same as
+
+  print $res->hint('HIT');
+
+but shorter.
+
+=cut
+
+sub hits {
+	my $self = shift;
+	return $self->{hints}->{'HIT'} || 0;
+}
+
 package Search::Estraier::Node;
 
 use Carp qw/carp croak confess/;