257 |
$name =~ s/((?:^|-)[a-z])/uc($1)/ge if $OPT{capitalize}; |
$name =~ s/((?:^|-)[a-z])/uc($1)/ge if $OPT{capitalize}; |
258 |
push @ret, $name.': '.$self->fold ($field->{body}); |
push @ret, $name.': '.$self->fold ($field->{body}); |
259 |
} |
} |
260 |
join "\n", @ret; |
my $ret = join ("\n", @ret); |
261 |
|
$ret? $ret."\n": ""; |
262 |
} |
} |
263 |
|
|
264 |
=head2 $self->get_option ($option_name) |
=head2 $self->get_option ($option_name) |
383 |
=head1 CHANGE |
=head1 CHANGE |
384 |
|
|
385 |
See F<ChangeLog>. |
See F<ChangeLog>. |
386 |
|
$Date$ |
387 |
|
|
388 |
=cut |
=cut |
389 |
|
|