/[Search-Estraier]/trunk/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/Estraier.pm

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

revision 9 by dpavlin, Wed Jan 4 15:28:39 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
# Line 210  sub delete { Line 223  sub delete {
223                  delete($self->{$data});                  delete($self->{$data});
224          }          }
225    
226            $self->{id} = -1;
227    
228          return 1;          return 1;
229  }  }
230    
Legend:
Removed from v.9  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.26