File Coverage

blib/lib/SQL/Abstract/FromQuery/Contains.pm

Criterion	Covered	Total	%
statement	16	18	88.8
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	3	0.0
total	22	28	78.5

package SQL::Abstract::FromQuery::Contains;

use strict;
use warnings;
use parent 'SQL::Abstract::FromQuery';


# add a 'contains' rule into the grammar
{
  use Regexp::Grammars;

  return qr{






       <[string]>+ %


       <[string]>+ %


       [,\s]+
  }xms;
};


#======================================================================
# CLASS METHODS
#======================================================================

sub sub_grammar {
  my $class = shift;
  return ('SQL::Abstract::FromQuery::Contains');
}


#======================================================================
# ACTIONS HOOKED TO THE GRAMMAR
#======================================================================

sub contains {
  my ($self, $h) = @_;
  return {-contains => $h->{string}};
}

sub contains_any {
  my ($self, $h) = @_;
  return {-contains_any => $h->{string}};
}


#======================================================================
1; # End of SQL::Abstract::FromQuery::Contains
#======================================================================

__END__