Raku: Fix Match hash access, $<variable><key>

Author: CIAvash

Diff for: lexers/r/raku.go

@@ -1043,7 +1043,7 @@ func rakuRules() Rules {
 		"variable": {
 			{variablePattern, NameVariable, Push("name-adverb")},
 			{globalVariablePattern, NameVariableGlobal, Push("name-adverb")},
-			{`[$@](?:<.*?>)+`, NameVariable, nil},
+			{`[$@]<[^>]+>`, NameVariable, nil},
 			{`\$/`, NameVariable, nil},
 			{`\$!`, NameVariable, nil},
 			{`[$@%]`, NameVariable, nil},

Diff for: lexers/testdata/raku.actual

@@ -261,6 +261,8 @@ rx/:i
         \d ** 1..3 <?{ $/.Int <= 255 && $/.Int >= 0 }>
         $/;
 
+$<variable><key>;
+
 constant \something:some<adverb> = 'something';
 
 my %hash = %(

Diff for: lexers/testdata/raku.expected

@@ -2004,6 +2004,11 @@
   {"type":"NameEntity","value":"$"},
   {"type":"Punctuation","value":"/;"},
   {"type":"Text","value":"\n\n"},
+  {"type":"NameVariable","value":"$\u003cvariable\u003e"},
+  {"type":"Punctuation","value":"\u003c"},
+  {"type":"LiteralString","value":"key"},
+  {"type":"Punctuation","value":"\u003e;"},
+  {"type":"Text","value":"\n\n"},
   {"type":"Keyword","value":"constant"},
   {"type":"Text","value":" "},
   {"type":"NameVariable","value":"\\something"},