/[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!

Diff of /trunk/Estraier.pm

Parent Directory | Revision Log | View Patch Patch

-revision 15 by dpavlin,
Wed Jan  4 22:24:57 2006 UTC
+revision 19 by dpavlin,
Wed Jan  4 23:10:48 2006 UTC
 Line 306 
 sub delete {
  package Search::Estraier::Condition;
+ use Carp qw/confess croak/;
  use Search::Estraier;
  our @ISA = qw/Search::Estraier/;
+ =head1 Search::Estraier::Condition
+ =head2 new
+   my $cond = new Search::HyperEstraier::Condition;
+ =cut
+ sub new {
+         my $class = shift;
+         my $self = {};
+         bless($self, $class);
+         $self->{max} = -1;
+         $self->{options} = 0;
+         $self ? return $self : return undef;
+ }
+ =head2 set_phrase
+   $cond->set_phrase('search phrase');
+ =cut
+ sub set_phrase {
+         my $self = shift;
+         $self->{phrase} = $self->_s( shift );
+ }
+ =head2 add_attr
+   $cond->add_attr('@URI STRINC /~dpavlin/');
+ =cut
+ sub add_attr {
+         my $self = shift;
+         my $attr = shift || return;
+         push @{ $self->{attrs} }, $self->_s( $attr );
+ }
+ =head2 set_order
+   $cond->set_order('@mdate NUMD');
+ =cut
+ sub set_order {
+         my $self = shift;
+         $self->{order} = shift;
+ }
+ =head2 set_max
+   $cond->set_max(42);
+ =cut
+ sub set_max {
+         my $self = shift;
+         my $max = shift;
+         croak "set_max needs number" unless ($max =~ m/^\d+$/);
+         $self->{max} = $max;
+ }
+ =head2 set_options
+   $cond->set_options( SURE => 1 );
+ =cut
  my $options = {
          # check N-gram keys skipping by three
          SURE => 1 << 0,
-Line 324 
 my $options = {
+Line 398 
 my $options = {
          SIMPLE => 1 << 10,
  };
- =head1 Search::Estraier::Condition
+ sub set_options {
+         my $self = shift;
+         my $option = shift;
+         confess "unknown option" unless ($options->{$option});
+         $self->{options} ||= $options->{$option};
+ }
- =head2 new
+ =head2 phrase
-   my $cond = new Search::HyperEstraier::Condition;
+ Return search phrase.
+   print $cond->phrase;
  =cut
- sub new {
+ sub phrase {
-         my $class = shift;
+         my $self = shift;
-         my $self = {};
+         return $self->{phrase};
-         bless($self, $class);
+ }
-         $self ? return $self : return undef;
+ =head2 order
+ Return search result order.
+   print $cond->order;
+ =cut
+ sub order {
+         my $self = shift;
+         return $self->{order};
+ }
+ =head2 attrs
+ Return search result attrs.
+   my @cond_attrs = $cond->attrs;
+ =cut
+ sub attrs {
+         my $self = shift;
+         #croak "attrs return array, not scalar" if (! wantarray);
+         return @{ $self->{attrs} };
+ }
+ =head2 max
+ Return maximum number of results.
+   print $cond->max;
+ C<-1> is returned for unitialized value, C<0> is unlimited.
+ =cut
+ sub max {
+         my $self = shift;
+         return $self->{max};
+ }
+ =head2 options
+ Return options for this condition.
+   print $cond->options;
+ Options are returned in numerical form.
+ =cut
+ sub options {
+         my $self = shift;
+         return $self->{options};
  }

 Legend:



Removed from v.15
 


changed lines


 
Added in v.19
 Legend:



Removed from v.15
 


changed lines


 
Added in v.19
-Removed from v.15
+Added in v.19

	ViewVC Help
Powered by ViewVC 1.1.26