File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch	1	2	50.0
condition	3	6	50.0
subroutine	8	8	100.0
pod	0	2	0.0
total	35	41	85.3

package SQL::Abstract::FromQuery::FR;

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

=encoding latin1

=cut


# redefine rules 'null' and 'bool' from the root grammar
{
  use Regexp::Grammars;

  return qr{






      NULL?



      | ENTRE (*COMMIT) (?:  ET   |  )


       O(?:UI)?        (?{ $MATCH = 1 })
     | V(?:RAI)?       (?{ $MATCH = 1 })
     | NO?N?           (?{ $MATCH = 0 })
     | F(?:AUX|ALSE)?  (?{ $MATCH = 0 })
     | Y(?:ES)?        (?{ $MATCH = 1 })

  }xms;
};


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

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


sub _error_handler {
  my $class = shift;
  return 'SAISIE INCORRECTE', sub {
    my ($error, $rule, $context)  = @_;

    my $msg = {
      negated_values => 'Aucune valeur après la négation',
      op_and_value   => "Aucune valeur après l'opérateur de comparaison",
      between        => 'Pas de valeurs min/max après "ENTRE/BETWEEN"',
      standard       => 'Texte inattendu après la valeur initiale',
    }->{$rule};
    $msg //= "Impossible d'appliquer la règle '$rule'";
    $msg  .= " ('$context')" if $context;
    return $msg;
  };
}

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

sub between {
  my ($self, $h) = @_;

  return
    # if parent method was already invoked through grammar inheritance
       $h->{'SQL::Abstract::FromQuery::between'}
    # otherwise, call parent explicitly with data from the present grammar
    || $self->next::method($h);
}


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

__END__