181 |
|
|
182 |
sub texts { |
sub texts { |
183 |
my $self = shift; |
my $self = shift; |
184 |
confess "attr_names return array, not scalar" if (! wantarray); |
confess "texts return array, not scalar" if (! wantarray); |
185 |
return @{ $self->{dtexts} }; |
return @{ $self->{dtexts} }; |
186 |
} |
} |
187 |
|
|
188 |
|
=head2 cat_texts |
189 |
|
|
190 |
|
Return whole text as single scalar. |
191 |
|
|
192 |
|
my $text = $doc->cat_texts; |
193 |
|
|
194 |
|
=cut |
195 |
|
|
196 |
|
sub cat_texts { |
197 |
|
my $self = shift; |
198 |
|
return join(' ',@{ $self->{dtexts} }); |
199 |
|
} |
200 |
|
|
201 |
=head2 dump_draft |
=head2 dump_draft |
202 |
|
|
203 |
print $doc->dump_draft; |
print $doc->dump_draft; |