Perlのメソッド一覧 - Doge logスタッシュを教えてもらったので書いてみる。 canで調べてるのと同じ感じに。 static PyObject * perl_get_methodsnames(Perl_Object *self, PyObject *args) { char *module; HV *stash; HE *entry; PyObject *res; if (!PyArg_ParseTuple(args, "s:Perl.get_methodnames", &module)) return NULL; PerlInterpreter * my_perl = self->perl; PERL_SET_CONTEXT(my_perl); res = PyList_New(0); stash = gv_stashpv(module, FALSE); if(stash){ hv_iterinit(stash); wh
