;;; you need .. ;;; YAML::Syck ;;; Class::Inspector (defun perl-class-inspector-functions (class) (interactive) (let ((buffer-name (concat "*functions " class "*"))) (if (get-buffer buffer-name) (progn (set-buffer buffer-name)) (progn (shell-command (concat "perl -MClass::Inspector -MYAML::Syck -e" "'use " class "; print Dump(Class::Inspector->functions('" class "')) '")) (set-buffer "*Shell Comma