perl6 grammar test

gistfile1.txt

grammar Test {
  rule TOP { ^ <content>* $ }
  rule block { '(' ~ ')' <content>* }
  rule content { <-[()]>+ || <block> }
}

class TestActs {
  method TOP($/) {
    $/.make: $<content>».made.join;
  }
  method block($/) {
    $/.make: '[' ~ $<content>».made.join ~ ']';
  }
  method content($/) {
    if $/<block> {
      $/.make: $<block>.made;
    } else {
      $/.make: ~$/;
    }
  }
}

my $actions = TestActs.new;
my $input = "(a (b))(c (d))";  
my $result = Test.parse($input, :$actions);
say ~$result;
say "\n* * * * *\n";
say $result.made;