/[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 2 by dpavlin, Wed Jan 4 13:11:43 2006 UTC revision 12 by dpavlin, Wed Jan 4 19:28:30 2006 UTC
# Line 43  implementation. It also includes methods Line 43  implementation. It also includes methods
43    
44  package Search::Estraier::Document;  package Search::Estraier::Document;
45    
46    use Carp qw/croak confess/;
47    
48  =head1 Search::Estraier::Document  =head1 Search::Estraier::Document
49    
50  Document for HyperEstraier  Document for HyperEstraier
# Line 58  sub new { Line 60  sub new {
60          my $self = {@_};          my $self = {@_};
61          bless($self, $class);          bless($self, $class);
62    
63            $self->{id} = -1;
64    
65          $self ? return $self : return undef;          $self ? return $self : return undef;
66  }  }
67    
68    
69  =head2 add_attr  =head2 add_attr
70    
71    Add an attribute.
72    
73    $doc->add_attr( name => 'value' );    $doc->add_attr( name => 'value' );
74    
75    Delete attribute using
76    
77      $doc->add_attr( name => undef );
78    
79  =cut  =cut
80    
81  sub add_attr {  sub add_attr {
# Line 72  sub add_attr { Line 83  sub add_attr {
83          my $attrs = {@_};          my $attrs = {@_};
84    
85          while (my ($name, $value) = each %{ $attrs }) {          while (my ($name, $value) = each %{ $attrs }) {
86                  $name =~ s/\s\s+/ /gs;                  if (! defined($value)) {
87                  $value =~ s/\s\s+/ /gs;                          delete( $self->{attrs}->{_s($name)} );
88                  push @{$self->{$name}}, $value;                  } else {
89                            $self->{attrs}->{_s($name)} = _s($value);
90                    }
91            }
92    
93            return 1;
94    }
95    
96    
97    =head2 add_text
98    
99    Add a sentence of text.
100    
101      $doc->add_text('this is example text to display');
102    
103    =cut
104    
105    sub add_text {
106            my $self = shift;
107            my $text = shift;
108            return unless defined($text);
109    
110            push @{ $self->{dtexts} }, _s($text);
111    }
112    
113    
114    =head2 add_hidden_text
115    
116    Add a hidden sentence.
117    
118      $doc->add_hidden_text('this is example text just for search');
119    
120    =cut
121    
122    sub add_hidden_text {
123            my $self = shift;
124            my $text = shift;
125            return unless defined($text);
126    
127            push @{ $self->{htexts} }, _s($text);
128    }
129    
130    =head2 id
131    
132    Get the ID number of document. If the object has never been registred, C<-1> is returned.
133    
134      print $doc->id;
135    
136    =cut
137    
138    sub id {
139            my $self = shift;
140            return $self->{id};
141    }
142    
143    =head2 attr_names
144    
145    Returns array with attribute names from document object.
146    
147      my @attrs = $doc->attr_names;
148    
149    =cut
150    
151    sub attr_names {
152            my $self = shift;
153            croak "attr_names return array, not scalar" if (! wantarray);
154            return sort keys %{ $self->{attrs} };
155    }
156    
157    
158    =head2 attr
159    
160    Returns value of an attribute.
161    
162      my $value = $doc->attr( 'attribute' );
163    
164    =cut
165    
166    sub attr {
167            my $self = shift;
168            my $name = shift;
169    
170            return $self->{'attrs'}->{ $name };
171    }
172    
173    
174    =head2 texts
175    
176    Returns array with text sentences.
177    
178      my @texts = $doc->texts;
179    
180    =cut
181    
182    sub texts {
183            my $self = shift;
184            confess "texts return array, not scalar" if (! wantarray);
185            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
202    
203      print $doc->dump_draft;
204    
205    =cut
206    
207    sub dump_draft {
208            return 'FIXME';
209    }
210    
211    =head2 delete
212    
213    Empty document object
214    
215      $doc->delete;
216    
217    =cut
218    
219    sub delete {
220            my $self = shift;
221    
222            foreach my $data (qw/attrs dtexts stexts/) {
223                    delete($self->{$data});
224          }          }
225    
226            $self->{id} = -1;
227    
228            return 1;
229    }
230    
231    
232    =head2 _s
233    
234    Remove multiple whitespaces from string, as well as whitespaces at beginning or end
235    
236     my $text = _s(" this  is a text  ");
237     $text = 'this is a text';
238    
239    =cut
240    
241    sub _s {
242            my $text = shift || return;
243            $text =~ s/\s\s+/ /gs;
244            $text =~ s/^\s+//;
245            $text =~ s/\s+$//;
246            return $text;
247  }  }
248    
249    
Legend:
Removed from v.2  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.26