lib/Krawfish/Query/Extension.pm

package Krawfish::Query::Extension;
use parent 'Krawfish::Query::Base::Dual';
use Krawfish::Query::Base::Dual;
use strict;
use warnings;

# This query adds subtokens to the left or the right
# of a matching span
#
# Support gaps like with Constraint::InBetween

sub new {
  my $class = shift;
  bless {
    left => shift,
    min => shift,
    max => shift,
    span => shift,
  }, $class;
  # min, max ...
};


# Check the configuration
sub check {
  ...
};

sub to_string {
  my $self = shift;
  my $string ='ext(';
  $string .= $self->{left} ? 'left' : 'right';
  $string .= $self->{min} . ',' $self->{max};
  return $string . $self->{span}->to_string . ')';
};



1;