How to access a variable from the grammar code

[Yuri Shtil]

I use OO perl and created a class that uses recdecent.
I want to access method variables from the grammar actions. Is there an elegant way to pass a parameter to the Parse::RecDescent constructor and access it from the actions?

I used an awkward construct and I don't like it:

-----

Package Foo;

our $var;

...
my $grammar = '...
# Capture the object instance
my $object = Foo::$var;
startrule: a b c {$object->method}'

...

sub action {
# Capture $var
$var = SOmeClass->new();
# $var is used in grammar
my $parser = Parse::RecDescent ($grammar);
$parser->startrule(SomeText);
}


Also I think this would not work with Precompile.

-----------------------------------------------------------------------------------
This email message is for the sole use of the intended recipient(s) and may contain
confidential information. Any unauthorized review, use, disclosure or distribution
is prohibited. If you are not the intended recipient, please contact the sender by
reply email and destroy all copies of the original message.
-----------------------------------------------------------------------------------

[Damian Conway]

Post by Yuri Shtil
Is there an elegant way to pass a parameter to the Parse::RecDescent
constructor and access it from the actions?

I'm afraid there isn't.

The best workaround is probably to make the shared resource an attribute
of the parser object (instead of using an external variable) and then
access it within the grammar via $thisparser. Like so:

my $grammar = q{
startrule: a b c {$thisparser->{sc_obj}->method}
...
};

sub action {
my $parser = Parse::RecDescent->new($grammar);
$parser->{sc_obj} = SomeClass->new();
$parser->startrule($sometext);
}


Damian