4 |
use strict; |
use strict; |
5 |
use warnings; |
use warnings; |
6 |
|
|
7 |
our $VERSION = '0.08_1'; |
our $VERSION = '0.09'; |
8 |
|
|
9 |
=head1 NAME |
=head1 NAME |
10 |
|
|
429 |
$draft .= join("\n", @{ $self->{dtexts} }) . "\n" if ($self->{dtexts}); |
$draft .= join("\n", @{ $self->{dtexts} }) . "\n" if ($self->{dtexts}); |
430 |
$draft .= "\t" . join("\n\t", @{ $self->{htexts} }) . "\n" if ($self->{htexts}); |
$draft .= "\t" . join("\n\t", @{ $self->{htexts} }) . "\n" if ($self->{htexts}); |
431 |
|
|
|
printf("[%s]\n", $draft); |
|
|
|
|
432 |
return $draft; |
return $draft; |
433 |
} |
} |
434 |
|
|