File Coverage

lib/Metadata/ByInode/Search.pm

Criterion	Covered	Total	%
statement	61	61	100.0
branch	12	20	60.0
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	80	91	87.9

package Metadata::ByInode::Search;
use strict;
use warnings;
our $VERSION = sprintf "%d.%02d", q$Revision: 1.11 $ =~ /(\d+)/g;


#returns boolean, did a search complete?
sub _sran {
	my $self= shift;
	$self->{_search} or return 0;
	return 1;
}



sub results_count {
	my $self = shift;
	$self->_sran or return;

	return $self->{_search}->{count};
}

sub search_results {
	my $self = shift;
	$self->_sran or return;

	$self->results_count or return []; # return empty if none found

	unless ( defined  $self->{_search}->{results_array})  {

		for (keys  %{$self->{_search}->{data}} ){
			my $inode = $_;
			my $hash = $self->{_search}->{data}->{$inode};
			$hash->{inode} = $inode;
			push @{$self->{_search}->{results_array}},$hash;
		}

	}

	return $self->{_search}->{results_array};
}

sub search { # multiple key lookup and ranked
	my $self = shift;
	my $arg = shift; ref $arg eq 'HASH' or croak('missing arg to search');

	# keys in search args?

	keys %{$arg} or croak('no arguments, must be hash ref with args and vals');

	$self->_search_reset;


	my $argcount = keys %{$arg};
	### $argcount

	my $select= {
	 'like'  => $self->dbh->prepare("SELECT * FROM metadata WHERE mkey=? and mvalue LIKE ?"),
	 'exact' => $self->dbh->prepare("SELECT * FROM metadata WHERE mkey=? and mvalue=?"),
	};
	my $sk = 'like'; #default

	my $RESULT = {};

	for ( keys %{$arg} ){
		my ($key,$value)= ($_,undef);

		if ($key=~s/:exact$//){ # EXACT, so they can override the like
			$value = $arg->{$_};
			$sk= 'exact';
		}
		else { # LIKE
			$key=~s/:like$//; # just in case
			$value = "%".$arg->{$_}."%";
			$sk ='like'
		}

		$select->{$sk}->execute($key,$value) or warn("cannot search? $DBI::errstr");

		while ( my $row = $select->{$sk}->fetch ){
			$RESULT->{$row->[0]}->{_hit}++;
		}

	}

	# just leave the result whose count matches num of args?
	# instead should order them to the back.. ?
	my $count = 0;
	for (keys %{$RESULT}){

		if( $RESULT->{$_}->{_hit} < $argcount ){
			delete $RESULT->{$_};
			next;
		}
		$RESULT->{$_} = $self->get_all($_);
		$count++;
	}

	$self->{_search}->{count} = $count;
	$self->{_search}->{data}  = $RESULT;
	return $RESULT;
}






sub _search_reset {
	my $self = shift;
	$self->{_search} = undef;
	return 1;
}

1;
__END__