evalable6

query

my Regex @rxs = (rx/3/, rx/2/); my @L = (1 .. 23); sub search(Mu $r where Regex) { grep $r, :v, @L }; say search( any 42 );

result

(exit code 1) 
Constraint type check failed in binding to parameter '$r'; expected anonymous constraint to be met but got Junction (any(42))
  in sub search at /tmp/k7_PPXsqi7 line 1
  in block <unit> at /tmp/k7_PPXsqi7 line 1