Changeset 30521

Timestamp:

02/25/09 20:40:07 (4 years ago)

Author:

yappo

Message:

fixed bug, get all records by undef key

Location:

lang/perl/Data-Model/trunk

Files:

• lib/Data/Model.pm (modified) (3 diffs)
• t/lib/Mock/Tests/Default.pm (modified) (1 diff)

lang/perl/Data-Model/trunk/lib/Data/Model.pm

@@ -231 +231 @@
 
     my $query = $self->_get_query_args($schema, @_);
+    return if @_ && !@{ $query }; # undef key
     local $schema->{schema_obj} = $self;
     my($iterator, $iterator_options) = $schema->{driver}->get( $schema, @{ $query } );
@@ -411 +412 @@
 
     my $query = $self->_get_query_args($schema, @_);
-    return unless $query;
+    return unless @{ $query };
 
     $schema->deflate($query->[2]);
@@ -451 +452 @@
 
     my $query = $self->_get_query_args($schema, @_);
-    return unless $query;
+    return unless @{ $query };
 
     local $schema->{schema_obj} = $self;

lang/perl/Data-Model/trunk/t/lib/Mock/Tests/Default.pm

@@ -41 +41 @@
 }
 
+sub t_03_get_undef : Tests(2) {
+    my $all = mock->get('tbl');
+    ok($all, 'get all');
+
+    my $undef = mock->get( tbl => undef );
+    ok(!$undef, 'get undef is empty');
+}
+
 1;