lib/Reaction/InterfaceModel/ObjectClass.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

package Reaction::InterfaceModel::ObjectClass;

use Reaction::ClassExporter;
use Reaction::Class;

use Reaction::InterfaceModel::Object;

use namespace::clean -except => [ qw(meta) ];
override default_base => sub { ('Reaction::InterfaceModel::Object') };
override exports_for_package => sub {
  my ($self, $package) = @_;
  return (super(),
          domain_model => sub {
            $package->meta->add_domain_model(@_);
          },
         );
};
__PACKAGE__->meta->make_immutable;


1;