Identities that contain < or > fail to parse

[ugexe]

# Grammar and Actions from Zef::Identity
my grammar REQUIRE {
    regex TOP { ^^ <name> [':' <key> <value>]* $$ }

    regex name  { <-restricted +name-sep>+ }
    token key   { <-restricted>+ }
    token value { '<' ~ '>'  [<( [[ <!before \>|\\> . ]+]* % ['\\' . ] )>] }

    token restricted { [':' | '<' | '>' | '(' | ')'] }
    token name-sep   { < :: > }
}
my class REQUIRE::Actions {
    method TOP($/) { make %('name'=> $/<name>.made, %($/<key> Z=> $/<value>>>.ast)) if $/ }

    method name($/)  { make $/.Str }
    method key($/)   { my $str = make $/.Str; ($str eq 'ver') ?? 'version' !! $str }
    method value($/) { make $/.Str }
}

my $g = REQUIRE.new(:actions(REQUIRE::Actions));

say $g.parse("Sake::TaskStore:ver<0.0.3>:auth<>:api<>");
#｢Sake::TaskStore:ver<0.0.3>:auth<>:api<>｣
# name => ｢Sake::TaskStore｣
# key => ｢ver｣
# value => ｢0.0.3｣
# key => ｢auth｣
# value => ｢｣
# key => ｢api｣
# value => ｢｣

say $g.parse("Sake::TaskStore:ver<0.0.3>:auth<Jonathan Scott Duff <duff\@pobox.com>>:api<>");
# Nil