diff options
| author | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-03-12 00:55:49 +0000 |
|---|---|---|
| committer | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-03-12 00:55:49 +0000 |
| commit | e675ccb0a1aaa0e2e386e4cffb02e64df6399c73 (patch) | |
| tree | 5f1e3b4e0ea0ffd99d14ac5830078c024595d2a8 /lib/Reaction/InterfaceModel | |
| parent | afd1c9107ea545e6a6627eb350da3d6982130094 (diff) | |
| download | reaction-e675ccb0a1aaa0e2e386e4cffb02e64df6399c73.tar.gz reaction-e675ccb0a1aaa0e2e386e4cffb02e64df6399c73.zip | |
better error reporting and some sugar for upcoming code generator.
Diffstat (limited to 'lib/Reaction/InterfaceModel')
| -rw-r--r-- | lib/Reaction/InterfaceModel/ObjectClass.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lib/Reaction/InterfaceModel/ObjectClass.pm b/lib/Reaction/InterfaceModel/ObjectClass.pm index 7a3497c..2ea5fb6 100644 --- a/lib/Reaction/InterfaceModel/ObjectClass.pm +++ b/lib/Reaction/InterfaceModel/ObjectClass.pm @@ -9,6 +9,14 @@ 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; |