burnt out, so writing some docs to clear my brain
[catagits/Reaction.git] / lib / ComponentUI / TestModel.pm
index 98ebb22..e13c31c 100644 (file)
@@ -1,19 +1,20 @@
 package ComponentUI::TestModel;
 
 use lib 't/lib';
-use Reaction::InterfaceModel::DBIC::SchemaClass;
+use base 'Reaction::InterfaceModel::Object';
+use Reaction::Class;
+use Reaction::InterfaceModel::Reflector::DBIC;
 
-class TestModel, which {
+my $reflector = Reaction::InterfaceModel::Reflector::DBIC->new;
+
+$reflector->reflect_schema
+  (
+   model_class  => __PACKAGE__,
+   schema_class => 'RTest::TestDB',
+   sources => [qw/Foo Baz/,
+               [ Bar => {attributes => [[-exclude => 'avatar']] } ], ## for now....
+              ],
+  );
 
-  domain_model '_testdb_schema' =>
-    (
-     isa => 'RTest::TestDB',
-     reflect => [
-                 'Foo',
-                 ['Bar' => 'ComponentUI::TestModel::Bars'],
-                 ['Baz' => 'ComponentUI::TestModel::Baz', 'bazes' ],
-                ],
-    );
-};
 
 1;