Bug #103905 for Regexp-Grammars: Regexp::Grammars does not work in Moose::Role

This works: #!/usr/bin/env perl use 5.018; use warnings; package ReRole; use Moose::Role; use Regexp::Grammars; use Data::Dumper; my %keywords = (foo => 1, bar => 1); sub doit { my $parser = qr/ ^<keyword>$ <rule: keyword> <%keywords> /xms; if ( "foo" =~ $parser ) { warn Dumper(\%/); } } package Re1; use Moose; with 'ReRole'; doit(); This does *not* work: #!/usr/bin/env perl use 5.018; use warnings; use Regexp::Grammars; use Data::Dumper; sub doit { my %keywords = (foo => 1, bar => 1); my $parser = qr/ ^<keyword>$ <rule: keyword> <%keywords> /xms; if ( "foo" =~ $parser ) { warn Dumper(\%/); } } doit(); This works: #!/usr/bin/env perl use 5.018; use warnings; use Regexp::Grammars; use Data::Dumper; my %keywords = (foo => 1, bar => 1); sub doit { my $parser = qr/ ^<keyword>$ <rule: keyword> <%keywords> /xms; if ( "foo" =~ $parser ) { warn Dumper(\%/); } } doit(); Looks like the R::G compiler can't see the lexical variable inside the sub, but it can see it outside of it. Maybe literals are compiled before pads are built? This works: #!/usr/bin/env perl use 5.018; use warnings; use Regexp::Grammars; use Data::Dumper; sub doit { my %keywords = (foo => 1, bar => 1); my $parser = eval q{qr/ ^<keyword>$ <rule: keyword> <%keywords> /xms}; if ( "foo" =~ $parser ) { warn Dumper(\%/); } } doit();