/[Search-Estraier]/trunk/lib/Search/Estraier.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Search/Estraier.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 11 by dpavlin, Wed Jan 4 15:50:08 2006 UTC revision 12 by dpavlin, Wed Jan 4 19:28:30 2006 UTC
# Line 181  Returns array with text sentences. Line 181  Returns array with text sentences.
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;

Legend:
Removed from v.11  
changed lines
  Added in v.12

  ViewVC Help
Powered by ViewVC 1.1.26