--- trunk/Estraier.pm	2006/01/04 15:50:08	11
+++ trunk/Estraier.pm	2006/01/04 19:28:30	12
@@ -181,10 +181,23 @@
 
 sub texts {
 	my $self = shift;
-	confess "attr_names return array, not scalar" if (! wantarray);
+	confess "texts return array, not scalar" if (! wantarray);
 	return @{ $self->{dtexts} };
 }
 
+=head2 cat_texts
+
+Return whole text as single scalar.
+
+ my $text = $doc->cat_texts;
+
+=cut
+
+sub cat_texts {
+	my $self = shift;
+	return join(' ',@{ $self->{dtexts} });
+}
+
 =head2 dump_draft
 
   print $doc->dump_draft;