Source code in the raku programming language

my $fullname;
my $favouritefruit;
my $needspeeling = False;
my $seedsremoved = False;
my @otherfamily;

grammar ConfFile {
    token TOP {
	:my $*linenum = 0;
	^ * [$ || (\N*) { die "Parse failed at $0" } ]
    }

    token fullline {
	
	{ ++$*linenum }
	
	[ \n || { die "Parse failed at line $*linenum" } ]
    }

    proto token line() {*}

    token line:misc  { {} (\S+) { die "Unrecognized word: $0" } }

    token line:sym { ^^ [ ';' | '#' ] \N* }
    token line:sym   { ^^ \h* $$ }

    token line:sym       {:i fullname»        { $fullname = $.trim } }
    token line:sym {:i favouritefruit»  { $favouritefruit = $.trim } }
    token line:sym   {:i needspeeling»     { $needspeeling = defined $ } }
    token rest { \h* '='? (\N*) }
    token yes { :i \h* '='? \h*
    	[
	    || ([yes|true|1])
	    || [no|false|0] 
	    || ()
	] \h*
    }
}

grammar MyConfFile is ConfFile {
    token line:sym    {:i otherfamily»     { @otherfamily = $.split(',')».trim } }
}

MyConfFile.parsefile('file.cfg');

say "fullname: $fullname";
say "favouritefruit: $favouritefruit";
say "needspeeling: $needspeeling";
say "seedsremoved: $seedsremoved";
print "otherfamily: "; say @otherfamily.raku;