| SWISH-Prog documentation | Contained in the SWISH-Prog distribution. |
SWISH::Prog::Result - base result class
my $results = $searcher->search( 'foo bar' );
while (my $result = $results->next) {
printf("%4d %s\n", $result->score, $result->uri);
}
SWISH::Prog::Results is a base results class. It defines the APIs that all SWISH::Prog storage backends adhere to in returning results from a SWISH::Prog::InvIndex.
The following methods are all accessors (getters) only.
Returns a SWISH::Prog::Doc instance.
Returns the ranking score for the Result.
Alias for uri().
Alias for mtime().
Alias for title().
Alias for summary().
Returns the stored value for property for this Result.
The default behavior is to simply call a method called property on the internal doc() object. Subclasses should implement per-engine behavior.
Peter Karman, <perl@peknet.com>
Please report any bugs or feature requests to bug-swish-prog at rt.cpan.org, or through
the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=SWISH-Prog.
I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc SWISH::Prog
You can also look for information at:
Copyright 2008-2009 by Peter Karman
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| SWISH-Prog documentation | Contained in the SWISH-Prog distribution. |
package SWISH::Prog::Result; use strict; use warnings; use base qw( SWISH::Prog::Class ); use Carp; our $VERSION = '0.51'; __PACKAGE__->mk_accessors(qw( doc score ));
sub uri { croak "must implement uri" } sub mtime { croak "must implement mtime" } sub title { croak "must implement title" } sub summary { croak "must implement summary" } # version 2 names for the faithful sub swishdocpath { shift->uri } sub swishlastmodified { shift->mtime } sub swishtitle { shift->title } sub swishdescription { shift->summary }
sub get_property { my $self = shift; my $propname = shift or croak "propname required"; return $self->doc->property($propname); } 1; __END__