example1-actions.p6

class Infobox::Actions {
    method TOP($/) { make $<infobox>.made }
    method infobox($/) {
        make %( name => $<name>.made, propertylist => $<propertylist>.made )
    }
    method name($/) { make ~$/.trim }
    method propertylist($/) {
        make $<property>>>.made
    }
    method property($/) {
        make $<key>.made => $<value>.made
    }
    method key-content($/) { make $/.trim }
    method value-content-list($/) {
        make $<value-content>>>.made
    }
    method value-content($/) { # (#1)
        my $rawtext = $<rawtext>>>.made>>.trim.grep({ $_ ne "" });
        
        make %(
            anchortext => $<anchortext>>>.made,
            weblink => $<weblink>>>.made,
            rawtext => $rawtext.elems == 0 ?? $[] !! $rawtext.Array
        );
    }
    method anchortext($/) {
        make ~$/;
    }
    method weblink($/) {
        make ~$/;
    }
    method rawtext($/) {
        make ~$/;
    }
}