Re: Faces in Perl POD

[Ilya Zakharevich]

Dear Daniel, 

I'm going through my TODO/cperl file, and found a reference to this
message of you:

On Wed, Oct 29, 2003 at 10:35:51PM +0100, Daniel Pfeiffer wrote:

> here's little goody for pod-writers, that should be integrated in cperl:
> 
> ;; insert this in function cperl-mode instead:
> (setq cperl-mode-hook
>       (lambda () (set (make-local-variable 'facemenu-add-face-function)
>                     'cperl-facemenu-add-face-function))
> 
> (defun cperl-facemenu-add-face-function (face end)
>   (or (get-text-property (point) 'in-pod)
>       (error "Faces can only be set within POD"))
>   (setq facemenu-end-add-face (if (eq face 'bold-italic) ">>" ">"))
>   (cdr (or (assq face '((bold . "B<")
>                       (italic . "I<")
>                       (bold-italic . "B<I<")
>                       (underline . "U<")))
>          (error "Face %s not configured for cperl-mode"
>                 face))))

What is this supposed to do, and how to test it?

Thanks,
Ilya