package Pangloss::Search::Filter::Document;
use base qw( Pangloss::Search::Filter::Keyword );
use accessors qw( text );
our $VERSION = ((require Pangloss::Version), $Pangloss::VERSION)[1];
our $REVISION = (split(/ /, ' $Revision: 1.3 $ '))[2];
sub applies_to {
my $self = shift;
my $term = shift;
return $self->does_text_contain( $term->concept );
}
sub does_text_contain {
my $self = shift;
my $text = shift || return;
$text = quotemeta( $text );
$self->text =~ /$text/i;
}
1;