Arguments\n";
- print "\n";
- foreach $parameter (@{$args{'parameterlist'}}) {
- print "".$args{'parametertypes'}{$parameter}." ".$parameter."\n";
- output_highlight($args{'parameters'}{$parameter});
+ if ($ntyped) {
+ print "Arguments\n";
+ print "\n";
+ foreach $parameter (@{$args{'parameterlist'}}) {
+ print "".$args{'parametertypes'}{$parameter}." ".$parameter."\n";
+ output_highlight($args{'parameters'}{$parameter});
+ }
+ print "\n";
}
- print "
\n";
foreach $section (@{$args{'sectionlist'}}) {
print "$section\n";
print "\n";