Added incorpus queries to check for corpus constraints in query matches
Change-Id: Iffc4aca87576be7a70e225e42ee4c2653e756568
diff --git a/lib/Krawfish/Koral/Query/Builder.pm b/lib/Krawfish/Koral/Query/Builder.pm
index 722e986..6ffe14c 100644
--- a/lib/Krawfish/Koral/Query/Builder.pm
+++ b/lib/Krawfish/Koral/Query/Builder.pm
@@ -7,6 +7,7 @@
use Krawfish::Koral::Query::Term;
use Krawfish::Koral::Query::Token;
use Krawfish::Koral::Query::Span;
+use Krawfish::Koral::Query::InCorpus;
use Krawfish::Koral::Query::Sequence;
use Krawfish::Koral::Query::Repetition;
use Krawfish::Koral::Query::TermGroup;
@@ -67,8 +68,7 @@
sub term {
shift;
- my $term = shift;
- return Krawfish::Koral::Query::Term->new(TOKEN_PREF . $term);
+ return Krawfish::Koral::Query::Term->new(TOKEN_PREF . shift);
};
sub term_neg {
@@ -126,6 +126,7 @@
);
};
+
# Position construct
sub position {
my $self = shift;
@@ -144,6 +145,13 @@
};
+# Search with reference to a specific supcorpus
+sub in_corpus {
+ shift;
+ Krawfish::Koral::Query::InCorpus->new(@_);
+};
+
+
# Create reference query
sub reference {
shift;