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
22

package Reaction::InterfaceModel::ObjectClass;

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

use Reaction::InterfaceModel::Object;

class ObjectClass which {

  overrides default_base => sub { ('Reaction::InterfaceModel::Object') };

  overrides exports_for_package => sub {
    my ($self, $package) = @_;
    return (super(),
            domain_model => sub {
              $package->meta->add_domain_model(@_);
            },
           );
  };
};

1;