lib/Reaction/InterfaceModel/ObjectClass.pm

   1 package Reaction::InterfaceModel::ObjectClass;
   2
   3 use Reaction::ClassExporter;
   4 use Reaction::Class;
   5
   6 use Reaction::InterfaceModel::Object;
   7
   8 class ObjectClass which {
   9
  10   overrides default_base => sub { ('Reaction::InterfaceModel::Object') };
  11
  12   overrides exports_for_package => sub {
  13     my ($self, $package) = @_;
  14     return (super(),
  15             domain_model => sub {
  16               $package->meta->add_domain_model(@_);
  17             },
  18            );
  19   };
  20 };
  21
  22 1;