Moose overriding for indexContent.

This commit is contained in:
Colin Kuskie 2010-04-07 15:07:20 -07:00
parent 953df9d6a9
commit c786395eb4
13 changed files with 65 additions and 52 deletions

View file

@ -519,11 +519,12 @@ Extend the base class to index Story properties like headline, byline, etc.
=cut
sub indexContent {
around indexContent => sub {
my $orig = shift;
my $self = shift;
my $indexer = $self->next::method();
my $indexer = $self->$orig(@_);
$indexer->addKeywords($self->headline, $self->subtitle, $self->location, $self->highlights, $self->byline, $self->story, );
}
};
#-------------------------------------------------------------------