$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{
$rettext$objtext $method($argnames)
} ;
foreach $arg (@$args) { $data .= qq{
\@param: $arg->{class} $arg->{name}
$arg->{comment} } ; }
if ($retclass) { $data .= qq{
\@ret: $retclass
$retcomment } ; }
$data .= qq{
\@since: $since
$comment
return $data ; }
sub gen_pod_struct_member
{ my ($self, $objclass, $obj, $memberclass, $member, $comment, $since) = @_ ;
qq{
\$val = $obj -> $member(\$newval)
} .
($since?"=item \@since: $since\n\n":'') .
qq{ =back
} 1;
2 POD Errors
The following errors were encountered while parsing the POD:
You can't have =items (as at line 65) unless the first thing after the =over is an =item
=over without closing =back
To install ExtUtils::XSBuilder, copy and paste the appropriate command in to your terminal.
cpanm
cpanm ExtUtils::XSBuilder
CPAN shell
perl -MCPAN -e shell install ExtUtils::XSBuilder
For more information on module installation, please visit the detailed CPAN module installation guide.