View of /trunk/pg/lib/Parser/UOP/undefined.pm

    1 #########################################################################
    2 #
    3 #  Use this for undefined operators in the Context operator list.
    4 #  They will still be recognized by the parser (so you don't get
    5 #  'unexpected character' errors), but get a message that the operation
    6 #  is not defined in this context.
    7 #
    8 
    9 package Parser::UOP::undefined;
   10 use strict; use vars qw(@ISA);
   11 @ISA = qw(Parser::UOP);
   12 
   13 sub _check {
   14   my $self = shift;
   15   $self->Error("Can't use '$self->{op}' in this context");
   16 }
   17 
   18 #########################################################################
   19 
   20 1;
   21