| 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 |
|
Dump draft data from document object. |
| 204 |
|
|
| 205 |
print $doc->dump_draft; |
print $doc->dump_draft; |
| 206 |
|
|
| 207 |
=cut |
=cut |
| 208 |
|
|
| 209 |
sub dump_draft { |
sub dump_draft { |
| 210 |
return 'FIXME'; |
my $self = shift; |
| 211 |
|
my $draft; |
| 212 |
|
|
| 213 |
|
foreach my $attr_name (sort keys %{ $self->{attrs} }) { |
| 214 |
|
$draft .= $attr_name . '=' . $self->{attrs}->{$attr_name} . "\n"; |
| 215 |
|
} |
| 216 |
|
|
| 217 |
|
if ($self->{kwords}) { |
| 218 |
|
$draft .= '%%VECTOR'; |
| 219 |
|
while (my ($key, $value) = each %{ $self->{kwords} }) { |
| 220 |
|
$draft .= "\t$key\t$value"; |
| 221 |
|
} |
| 222 |
|
$draft .= "\n"; |
| 223 |
|
} |
| 224 |
|
|
| 225 |
|
$draft .= "\n"; |
| 226 |
|
|
| 227 |
|
$draft .= join("\n", @{ $self->{dtexts} }) . "\n"; |
| 228 |
|
$draft .= "\t" . join("\n\t", @{ $self->{htexts} }) . "\n"; |
| 229 |
|
|
| 230 |
|
return $draft; |
| 231 |
} |
} |
| 232 |
|
|
| 233 |
=head2 delete |
=head2 delete |
| 245 |
delete($self->{$data}); |
delete($self->{$data}); |
| 246 |
} |
} |
| 247 |
|
|
| 248 |
|
$self->{id} = -1; |
| 249 |
|
|
| 250 |
return 1; |
return 1; |
| 251 |
} |
} |
| 252 |
|
|
Parent Directory
| 
Revision Log
| 
Patch