Changeset 34129

Timestamp:

06/24/09 21:44:54 (4 years ago)

Author:

fujiwara

Message:

key_start_with 引数追加

Location:

lang/perl/DBIx-CouchLike/trunk

Files:

• lib/DBIx/CouchLike.pm (modified) (2 diffs)
• t/02_view.t (modified) (1 diff)
• xt/04_benchmark.t (modified) (1 diff)

lang/perl/DBIx-CouchLike/trunk/lib/DBIx/CouchLike.pm

@@ -9 +9 @@
 use DBIx::CouchLike::Iterator;
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 our $RD;
 __PACKAGE__->mk_accessors(qw/ dbh table utf8 _json /);
@@ -208 +208 @@
         $sql .= q{ AND m.key LIKE ? };
         push @param, $query->{key_like};
+    }
+    elsif ( exists $query->{key_start_with} ) {
+        my ($part, @value)
+            = $self->_start_with("m.key" => $query->{key_start_with});
+        $sql .= q{ AND } . $part;
+        push @param, @value;
     }
 

lang/perl/DBIx-CouchLike/trunk/t/02_view.t

@@ -86 +86 @@
 ];
 
+
+@res = $couch->view("tags/name", { key_start_with => "c" });
+is_deeply \@res => [
+    { key => "cat",  value => "animal",       id => $a_id },
+    { key => "cat",  value => "unix command", id => $u_id },
+];
+
+@res = $couch->view("tags/name", { key_start_with => "d" });
+is_deeply \@res => [
+    { key => "dog",  value => "animal",       id => $a_id },
+];
+
 @res = $couch->view("tags/name", { key => {"<>" => "dog"} });
 is_deeply \@res => [

lang/perl/DBIx-CouchLike/trunk/xt/04_benchmark.t

@@ -71 +71 @@
         my $r = $couch->view('count/by_tail_of_id', { key_like => "12%" });
     },
+    map_key_sw => sub {
+        my $r = $couch->view('count/by_tail_of_id', { key_start_with => "12" });
+    },
     map_key_docs => sub {
         my $r = $couch->view('count/by_tail_of_id', { key => "12", include_docs => 1, });