| … | |
… | |
| 95 | |
95 | |
| 96 | # |
96 | # |
| 97 | # Add/Remove the equality operator to/from a context |
97 | # Add/Remove the equality operator to/from a context |
| 98 | # |
98 | # |
| 99 | sub Allow { |
99 | sub Allow { |
| 100 | my $self = shift; my $context = self->context; |
100 | my $self = shift || "Value"; my $context = shift || $self->context; |
| 101 | my $allow = shift; $allow = 1 unless defined($allow); |
101 | my $allow = shift; $allow = 1 unless defined($allow); |
| 102 | if ($allow) { |
102 | if ($allow) { |
| 103 | my $prec = $context->{operators}{','}{precedence}; |
103 | my $prec = $context->{operators}{','}{precedence}; |
| 104 | $prec = 1 unless defined($prec); |
104 | $prec = 1 unless defined($prec); |
| 105 | $context->operators->add( |
105 | $context->operators->add( |
Parent Directory
| 
Revision Log
| 
Patch