| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch