Changeset 23424 for lang/perl/Data-Model

Timestamp:

11/12/08 23:00:31 (5 years ago)

Author:

yappo

Message:

Driver::Logic の時の model method の戻り値にイテレータを戻り値として使えるように追加

Files:

• lang/perl/Data-Model/trunk/lib/Data/Model/Driver/Logic.pm (modified) (1 diff)

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

@@ -11 +11 @@
     my $schema = shift;
     my $obj = $schema->{schema_obj};
+
     my $method = 'get_' . $schema->{model};
-    return $self->_generate_result_iterator([ $obj->$method($schema, @_) ]), +{};
+    my @ret = $obj->$method($schema, @_);
+    $ret[1] = +{};
+    if (ref($ret[0]) eq 'CODE') {
+        return @ret;
+    } elsif (ref($ret[0]) eq 'ARRAY') {
+        return $self->_generate_result_iterator($ret[0]), $ret[1];
+    } else {
+        return $self->_generate_result_iterator([ $ret[0] ]), $ret[1];
+    }
 }