EMACS - indent Perl code inside POD

perl-pod-indent.el

(defun dakkar/perl-indent (beg end)
  (interactive "r")
  (if (use-region-p)
      (cond ((get-text-property beg 'in-pod)
             (let* (
                    (text (buffer-substring beg end))
                    (indented-text (with-temp-buffer
                                     (insert text)
                                     (cperl-mode)
                                     (cperl-indent-region 0 (buffer-size))
                                     (indent-rigidly 0 (buffer-size) cperl-indent-level)
                                     (buffer-string))))
               (delete-region beg end)
               (insert indented-text)))
            (t (cperl-indent-region beg end)))))
 
(defun dakkar/setup-cperl-mode ()
  (setq indent-region-function 'dakkar/perl-indent)
  (substitute-key-definition
   'indent-region 'dakkar/perl-indent
   cperl-mode-map global-map))
 
(add-hook 'cperl-mode-hook 'dakkar/setup-cperl-mode)