File Coverage

lib/News/Pan/Server/Group/_Search.pm

Criterion	Covered	Total	%
statement	67	85	78.8
branch	14	28	50.0
condition	4	11	36.3
subroutine	13	15	86.6
pod	7	7	100.0
total	105	146	71.9

package News::Pan::Server::Group::_Search;
use strict;
use warnings;
use Carp;
use LEOCHARRE::DEBUG;






sub _search_set_subjects_matching {
   my ($self,$arg) = @_;
   defined $arg or confess('missing arg');
   ref $arg eq 'ARRAY' or confess('not array ref');
   $self->{_data_}->{search_subjects_matching} = $arg;
   return 1;
}

sub _search_subjects_matching {
   my $self = shift;
   unless (defined $self->{_data_}->{search_subjects_matching}){
      $self->{_data_}->{search_subjects_matching} = $self->subjects;
   }
   return $self->{_data_}->{search_subjects_matching};
}




sub _search_filter {
   my ($self,$term,$case_sensitive,$negative) = @_;
   defined $term or confess('missing arg');
   $case_sensitive ||= 0;
   $negative ||=0;

   debug(sprintf "count before %s, ", $self->search_count );

   my @filtered;

   if ($case_sensitive and $negative){
      @filtered = grep { !/$term/ } @{$self->_search_subjects_matching};
      debug("[$term] case sensitive and negative, ");
   }

   elsif ($case_sensitive){
      @filtered = grep { /$term/ } @{$self->_search_subjects_matching};
      debug("[$term] case sensitive, ");
   }

   elsif ($negative){
      @filtered = grep { !/$term/ } @{$self->_search_subjects_matching};
      debug("[$term] negative, ");
   }

   else {
      @filtered = grep { /$term/i } @{$self->_search_subjects_matching};
      debug("[$term] positive match, ");
   }
   $self->_search_set_subjects_matching(\@filtered);

   if (DEBUG){
      for (@filtered){
         print STDERR "   -ok: $_ \n";
      }
   }

   debug(sprintf "count after %s\n\n", $self->search_count );

   return 1;
}


sub _search_subjects_matching_count {
   my $self = shift;
   my $count = scalar @{$self->_search_subjects_matching};
   return $count;
}




sub search_add {
   my ($self,$string) = @_;
   defined $string or confess('missing arg');
   $string=~/\w/ or warn("will not filter, no word chars") and return;

   $string=~/^\s|\s$/g;
   my @terms = split(/\W/,$string);

   for (@terms){
      $self->_search_filter($_);
   }
   return 1;
}

sub search_add_exact {
   my ($self,$string) = @_;
   defined $string or confess('missing arg');
   $self->_search_filter($string,1);
   return 1;
}



sub search_negative {
   my ($self,$string) = @_;
   defined $string or confess('missing arg');
   $string=~/\w/ or warn("will not filter, no word chars") and return;

   $string=~/^\s|\s$/g;
   my @terms = split(/\W/,$string);

   for (@terms){
      $self->_search_filter($_,0,1);
   }
   return 1;
}

sub search_negative_exact {
   my ($self,$string) = @_;
   defined $string or confess('missing arg');
   $self->_search_filter($string,1,1);
   return 1;
}

sub search_count {
   my $self = shift;
   return $self->_search_subjects_matching_count;
}

sub search_results {
   my $self = shift;
   return $self->_search_subjects_matching;
}

sub search_reset {
   my $self = shift;
   $self->{_data_}->{search_subjects_matching} = undef;
   return 1;
}


1;

__END__