Changeset 34134

Timestamp:

06/25/09 01:14:33 (4 years ago)

Author:

fujiwara

Message:

id_start_with引数追加

Location:

lang/perl/DBIx-CouchLike/trunk

Files:

• META.yml (modified) (3 diffs)
• lib/DBIx/CouchLike.pm (modified) (2 diffs)
• t/01_crud.t (modified) (1 diff)
• xt/05_id_gen_benchmark.t (modified) (1 diff)

lang/perl/DBIx-CouchLike/trunk/META.yml

@@ -4 +4 @@
   - 'FUJIWARA <fujiwara.shunichiro gmail.com>'
 build_requires:
+  ExtUtils::MakeMaker: 6.42
   Test::More: 0
+configure_requires:
+  ExtUtils::MakeMaker: 6.42
 distribution_type: module
-generated_by: 'Module::Install version 0.77'
+generated_by: 'Module::Install version 0.91'
 license: perl
 meta-spec:
@@ -16 +19 @@
     - inc
     - t
+    - xt
 requires:
   Class::Accessor::Fast: 0
@@ -24 +28 @@
 resources:
   license: http://dev.perl.org/licenses/
-version: 0.07
+version: 0.08

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

@@ -273 +273 @@
         $sql .= " WHERE id LIKE ?";
         push @param, $query->{id_like};
+    }
+    elsif ($query->{id_start_with}) {
+        my ($part, @value)
+            = $self->_start_with( id => $query->{id_start_with} );
+        $sql .= " WHERE $part";
+        push @param, @value;
     }
     elsif ($query->{id_in}) {
@@ -558 +564 @@
 =head1 METHODS
 
-=over4
+=over 4
 
 =item view

lang/perl/DBIx-CouchLike/trunk/t/01_crud.t

@@ -83 +83 @@
 ];
 
+@all = $couch->all({ id_start_with => "1" });
+is_deeply \@all => [
+    { 'value' => { 'foo' => 9999 }, 'id' => '1234' },
+];
+
 @all = $couch->all({ id_in => ["1234", "foo"]});
 is_deeply \@all => [

lang/perl/DBIx-CouchLike/trunk/xt/05_id_gen_benchmark.t

@@ -6 +6 @@
 BEGIN {
     use_ok 'DBIx::CouchLike::IdGenerator';
-    use_ok 'Data::YUID::Generator';
+    eval { require Data::YUID::Generator };
+    if ($@) {
+        exit
+    }
 }