Perl6 Grammar example

Config file template

<main>
key value

<dev>
key value

gistfile1.txt

class Law::Actions	{
	method key($/)		{ make $/.Str }
	method value($/)  { make $/.Str }
	method object($/) { make $/[0].Str }
	method law($/)	  { make $<key>.made => $<value>.made }
	method block($/)  { make $<law>.map({ .made }).hash }
	method realm($/) 	{ make $<object>.made => $<block>.made }	
	method TOP($/)    { make $<realm>.map: { .made } }
}

grammar Law {
	token key			{ \w+ }
	token value		{ <!before \s> <-[\n #]>+ <!after \s> }
	token law			{ <key> <space>+ <value> \n+					}
	token object	{ '<' ( <-[ \< \> \n ]>+ ) '>' \n+		}	
	token comment	{ '#' \N*\n+													}
	token block		{ [<law> | <comment>]*								}
	token realm		{ <object> <block>										}
	token TOP			{ <realm>*									} 

	method create(Str $laws)	{
		my $m = self.parsefile($laws, :actions(Law::Actions));
		die "Usage:" unless $m;
		return $m.made;
		}
}