Changeset 23152

Timestamp:

11/10/08 22:23:39 (5 years ago)

Author:

yappo

Message:

add Driver::Logic

Location:

lang/perl/Data-Model/trunk

Files:

• lib/Data/Model.pm (modified) (3 diffs)
• lib/Data/Model/Driver.pm (modified) (1 diff)
• lib/Data/Model/Driver/Logic.pm (added)
• lib/Data/Model/Schema.pm (modified) (2 diffs)
• t/020_mock/logic-simple.t (added)
• t/lib/Mock/Logic/Basic.pm (deleted)
• t/lib/Mock/Logic/Simple.pm (added)

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

@@ -119 +119 @@
 
     my $query = _get_query_args($schema, @_);
+    local $schema->{schema_obj} = $self;
     my($iterator, $iterator_options) = $schema->{driver}->get( $schema, @{ $query } );
     return unless $iterator;
@@ -193 +194 @@
     # $columns deflate
 
+    local $schema->{schema_obj} = $self;
     my $result = $schema->{driver}->set( $schema, $key_array => $columns, @_ );
     return unless $result;
@@ -221 +223 @@
     return unless $query;
 
+    local $schema->{schema_obj} = $self;
     $schema->{driver}->delete( $schema, @{ $query } );
 }

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

@@ -11 +11 @@
 
 sub init {}
+sub init_model {}
 
 my $KEYSEPARATE = "\0";

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

@@ -27 +27 @@
 my $CALLER = undef;
 sub model ($$;%) {
-    my($name, $schema, %args) = @_;
+    my($name, $schema_code, %args) = @_;
     my $caller = caller;
 
@@ -35 +35 @@
     @{"$pkg\::ISA"} = ( 'Data::Model::Row' );
 
-    $caller->__properties->{schema}->{$name} = +{
-        driver   => undef,
-        model    => $name,
-        class    => $pkg,
-        column   => {},
-        index    => {},
-        unique   => {},
-        key      => undef,
-        triggers => {},
-        options  => +{},
+    my $schema = $caller->__properties->{schema}->{$name} = +{
+        driver       => undef,
+        schema_class => $caller,
+        model        => $name,
+        class        => $pkg,
+        column       => {},
+        index        => {},
+        unique       => {},
+        key          => undef,
+        triggers     => {},
+        options      => +{},
     };
 
     $caller->__properties->{__process_tmp}->{name} = $name;
     $CALLER = $caller;
-    $schema->();
+    $schema_code->();
     $CALLER = undef;
+
+    if (exists $schema->{driver}) {
+        $schema->{driver}->init_model($name, $schema);
+    }
 }
 sub schema (&) { shift }