gistfile1.txt

use MONKEY_TYPING;

grammar Color {
    regex blue { :i "blue" }

    regex green { :i "green" }

    regex TOP { <blue> | <green> }
}

augment class Match {
    method dump ($d = 0) {
        my $s = '  ' x $d;
        my @caps = self.caps;
        return "=> $(self)\n" unless @caps;
        return (@caps[0].key//'?') ~ " " ~ @caps[0].value.dump($d) if @caps == 1;
        return "\n" ~ @caps.map({
            "$s  " ~ ($_.key||'?') ~ " " ~ $_.value.dump($d+1);
        }).join;
    }
}

my $match = Color.parse("Blue skies");

say $match.perl;

say $match.dump;