Commit | Line | Data |
bf0b4376 |
1 | package Reaction::InterfaceModel::ObjectClass; |
2 | |
3 | use Reaction::ClassExporter; |
4 | use Reaction::Class; |
5 | |
6 | use Reaction::InterfaceModel::Object; |
7 | |
81393881 |
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 | ); |
bf0b4376 |
17 | }; |
81393881 |
18 | __PACKAGE__->meta->make_immutable; |
19 | |
bf0b4376 |
20 | |
21 | 1; |