$module } ; } # -------------------------------------------------------------------------- sub gen_pod_func { my ($self, $objclass, $obj, $method, $args, $retclass, $ret, $comment, $since) = @_ ; my $argnames = join (',', map { $_ -> {name} } @{$args}[($objclass?1:0)..$#$args]) ; my $rettext = $retclass?'$ret = ':'' ; my $objtext = $objclass?"$obj -> ":'' ; my $data = qq{

\@func: $method()
$rettext$objtext $method($argnames) } ; foreach $arg (@$args) { $data .= qq{ $arg->{comment} } ; } if ($retclass) { $data .= qq{ $retcomment } ; } $data .= qq{ $comment } ; return $data ; } # -------------------------------------------------------------------------- sub gen_pod_struct_member { my ($self, $objclass, $obj, $memberclass, $member, $comment, $since) = @_ ; qq{

\@func: $member()
\$val = $obj -> $member(\$newval) } . ($since?"=item \@since: $since\n\n":'') . qq{ =back $comment } ; } 1;