=cut

sub new {
    ...
}
=item C<as_string>
[download]

Ah. I think that was the thing I needed to see, really. Though in my case it may be more like this...

sub authbox {
  my ($input, $callback) = @_;
=item C<authbox>
  authbox ($input, $callback);

  Returns two items.  The first is a string containing a hunk of xhtml
  suitable for inclusion wherever a div can legally be put (e.g.,
  inside a table cell or a paragraph).  If the user is not logged in,
  the box offers login options.  If the user is logged in, it offers a
  logout link.  $input should be a hashref containing any form input
  with keys starting with 'AUTH_'.  $callback should be a closure
  that, if passed a user id, returns a string containing a suitable
  greeting; this string will appear in the authbox.

  The second item in the returned list is the cookie string that
  should be passed to the browser, if any.
=cut
  # Rest of code for function goes here.
}
[download]

Currently I have roughly that form, pretty consistently, but with comments instead of POD. I want to convert it to POD. Unfortunately, I seem to be finding that the version of cperl-mode I have may not support POD properly. update:Yes it does; there was something wrong with my POD.

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]