gistfile1.txt

module Describe;

sub describe(::T) is export {
    join "\n", gather {
        take "Type {T.^name}";
        take "  Attributes:";
        for T.^attributes(:local) -> $attr {
            take "    $attr.name() ({
                $attr.has_accessor ?? 'public' !! 'private'
            })";
        }
        take "  Methods:";
        for T.^methods(:local).sort(*.name) -> $meth {
            take "    $meth.name()";
        }
    }
}