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 use namespace::clean -except => [ qw(meta) ];
   9 override default_base => sub { ('Reaction::InterfaceModel::Object') };
  10 override exports_for_package => sub {
  11   my ($self, $package) = @_;
  12   return (super(),
  13           domain_model => sub {
  14             $package->meta->add_domain_model(@_);
  15           },
  16          );
  17 };
  18 __PACKAGE__->meta->make_immutable;
  19
  20
  21 1;
  22
  23 __END__;
  24
  25
  26 =head1 NAME
  27
  28 Reaction::InterfaceModel::ObjectClass
  29
  30 =cut