--- lib/Grep/Search.pm 2007/05/03 15:39:52 136 +++ lib/Grep/Search.pm 2007/05/08 12:37:28 141 @@ -3,7 +3,7 @@ use strict; use warnings; use base qw( Class::Accessor ); -Grep::Search->mk_accessors( qw( invindexer create index_path ) ); +Grep::Search->mk_accessors( qw( invindexer create index_path hits ) ); use Data::Dump qw/dump/; use KinoSearch::InvIndexer; @@ -117,8 +117,16 @@ =head2 collection +Return C which is result of C + my $ItemCollection = $search->collection( 'search query' ); +=head2 hits + +Return number of results from last C call + + my $num_results = $search->hits; + =cut sub collection { @@ -139,9 +147,9 @@ # num_wanted => $hits_per_page, ); - my $num_hits = $hits->total_hits; + $self->hits( $hits->total_hits ); - $self->log->debug("found $num_hits results"); + $self->log->debug("found ", $self->hits, " results"); my $collection = Grep::Model::ItemCollection->new();