[catagits/Reaction.git] / lib / Reaction / InterfaceModel / ObjectClass.pm

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;
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
	8	class ObjectClass which {
	9
	10	overrides default_base => sub { ('Reaction::InterfaceModel::Object') };
	11
e675ccb0	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	};
bf0b4376	20	};
	21
	22	1;