gistfile1.pl

grammar bug {
    token TOP {
        <zebra> *
    }
    token zebra {
        'zebra'
    }
}

class bug::actions {
    method TOP($/) {
        say 'keys: ', $/.keys.perl;
        say 'elems: ', $<zebra>.elems;
        say 'elems2: ', $<zebra>[0].elems;
        make 'whatever';
    }
    method zebra($/) {
        make ~$/
    }
}

my $a = 'zebrazebrazebra';
my $ast = bug.parse($a, :actions(bug::actions.new)).ast;
say $ast.perl;