stray 1;
[catagits/Reaction.git] / lib / ComponentUI / TestModel.pm
index 98ebb22..380f6f8 100644 (file)
@@ -1,19 +1,23 @@
 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;
 
-  domain_model '_testdb_schema' =>
-    (
-     isa => 'RTest::TestDB',
-     reflect => [
-                 'Foo',
-                 ['Bar' => 'ComponentUI::TestModel::Bars'],
-                 ['Baz' => 'ComponentUI::TestModel::Baz', 'bazes' ],
-                ],
-    );
-};
+$reflector->reflect_schema(
+  model_class  => __PACKAGE__,
+  schema_class => 'RTest::TestDB',
+  sources => [
+    qw/Foo Baz/,
+    [ Bar => {attributes => [[-exclude => 'avatar']] } ], ## for now....
+  ],
+);
+
+__PACKAGE__->meta->make_immutable;
 
 1;
+
+__END__;