p6uricharclass

use v6;

#`{{
   From page 49 of http://www.ietf.org/rfc/rfc3986.txt

   reserved      = gen-delims / sub-delims
   gen-delims    = ":" / "/" / "?" / "#" / "[" / "]" / "@"
   sub-delims    = "!" / "$" / "&" / "'" / "(" / ")"
                 / "*" / "+" / "," / ";" / "="
}}

grammar TestGrammar {
    token TOP { ^ <reserved>+ $ }
    token reserved          { <+ gen_delims + sub-delims> };
    token gen_delims        { <[:/?\#\[\]@]> };
    token sub-delims        { <[;!$&'()*+,=]> };
}


my $m = TestGrammar.parse(':///#;*');

say ~$m;