rakuast.raku

#!/usr/bin/env raku
use experimental :rakuast;

my $token1 = RakuAST::TokenDeclaration.new(
  scope => "my",
  name  => RakuAST::Name.from-identifier("token1"),
  body  => RakuAST::Regex::Alternation.new(
    RakuAST::Regex::Literal.new("a"),
    RakuAST::Regex::Literal.new("b")
  )
).EVAL;

say 'a' ~~ $token1; # ｢a｣

my $token2 = RakuAST::TokenDeclaration.new(
  scope => "my",
  name  => RakuAST::Name.from-identifier("token2"),
  body  => RakuAST::Regex::Alternation.new(
    <a b>.map({ RakuAST::Regex::Literal.new($_) })
  )
).EVAL; # No such method 'visit-children' for invocant of type 'Seq'

say 'a' ~~ $token2;