man ExtUtils::XSBuilder::PODTemplate () - $module
NAME
$module
FUNCTIONS
} ; }
# --------------------------------------------------------------------------
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 CW$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 = CW$obj -> CW$member(\$newval) } . ($since?=item \@since: CW$since\n\n:'') . qq{ =back $comment } ;
}
1;