#!/usr/bin/perl
use MooseX::Declare;

my $gr = do {
    use Regexp::Grammars;

    qr {
    <Foo>

    <objrule: Foo>
    foo

    }x;
};

class Foo {
    method BUILD {
        use Data::Dumper;
        print 'AH ', Dumper \@_;
    }
}

my $m = 'foo' =~ $gr
    or die 'no match';

##</code><code>##

AH $VAR1 = [
          bless( {}, 'Foo' ),
          {
            '@' => {},
            '!' => '-1'
          }
        ];
Segmentation fault

##</code><code>##

Foo->new(
          {
            '@' => {},
            '!' => '-1'
          }
);