1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
package Data::ObjectDriver::Driver::MultiPartition;
use strict;
use base qw( Data::ObjectDriver );
__PACKAGE__->mk_accessors(qw( partitions ));
sub init {
my $driver = shift;
$driver->SUPER::init(@_);
my %param = @_;
$driver->partitions($param{partitions});
return $driver;
}
sub search {
my $driver = shift;
my($class, $terms, $args) = @_;
my @objs;
my $only_one_result = $args->{limit} && $args->{limit} == 1;
for my $partition (@{ $driver->partitions }) {
my @partial_res = $partition->search($class, $terms, $args);
return @partial_res if $only_one_result && @partial_res;
push @objs, @partial_res;
}
return @objs;
}
1;
__END__
=head1 NAME
Data::ObjectDriver::Driver::MultiPartition - Search thru partitioned objects without
the partition_key
=head1 DESCRIPTION
I<Data::ObjectDriver::Driver::MultiPartition> is used internally by
I<Data::ObjectDriver::Driver::SimplePartition> to do very simple
search across partition, if the terms of the query cannot be used to
determine the partition.
It's just a basic support. For instance 'limit' arg isn't supported
except if its value is 1.
|
