variable scopes in P::RD grammars

This is not really a problem, more of a gotcha.  P::RD grammars have
interesting behavior with "my" variables - modifications of those
variables in actions don't hold outside the grammar.  I deal with this
problem by using "our" variables (see the example below, try changing
$global_var to a "my" variable).  Accessor methods are also a
possibility, but it's a pain to maintain a lot of those.  How do
others deal with this?

Thanks
Ted

----------------------------------------------------------------
#!/usr/bin/perl -w

use Parse::RecDescent;

use strict;
our $global_var = 0;

my $parser = new Parse::RecDescent (q{
external_check: /external/i /user/i /check/i /=/ /\S+/  { $::global_var = 1; print "Assigned the value\n"; 1; }
});

$parser->external_check("external user check = test");

print "The global value was assigned\n" if $global_var;