Parent Directory | Revision Log | Patch
revision 9 by dpavlin, Wed Jan 4 15:28:39 2006 UTC | revision 11 by dpavlin, Wed Jan 4 15:50:08 2006 UTC | |
---|---|---|
# | Line 182 Returns array with text sentences. | Line 182 Returns array with text sentences. |
182 | sub texts { | sub texts { |
183 | my $self = shift; | my $self = shift; |
184 | confess "attr_names return array, not scalar" if (! wantarray); | confess "attr_names return array, not scalar" if (! wantarray); |
185 | return $self->{dtexts}; | return @{ $self->{dtexts} }; |
186 | } | } |
187 | ||
188 | =head2 dump_draft | =head2 dump_draft |
# | Line 210 sub delete { | Line 210 sub delete { |
210 | delete($self->{$data}); | delete($self->{$data}); |
211 | } | } |
212 | ||
213 | $self->{id} = -1; | |
214 | ||
215 | return 1; | return 1; |
216 | } | } |
217 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |