diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-25 04:25:47 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-01-25 04:25:47 +0000 |
commit | bae339c8eb0b17b50dcb8d8ef7035ffa9f225b36 (patch) | |
tree | 029cb6f09e7c50b6266a71f0b9fbe4d3d8e4f82e /lib/Reaction/Meta | |
parent | 9b2f40541c4439bbc5829d9f131f558b56b58567 (diff) | |
download | reaction-bae339c8eb0b17b50dcb8d8ef7035ffa9f225b36.tar.gz reaction-bae339c8eb0b17b50dcb8d8ef7035ffa9f225b36.zip |
tweak add_domain_model to default attribute metaclass rather than forcibly construct the meta-attr object
Diffstat (limited to 'lib/Reaction/Meta')
-rw-r--r-- | lib/Reaction/Meta/InterfaceModel/Object/Class.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Reaction/Meta/InterfaceModel/Object/Class.pm b/lib/Reaction/Meta/InterfaceModel/Object/Class.pm index 77fbbe4..da99ffe 100644 --- a/lib/Reaction/Meta/InterfaceModel/Object/Class.pm +++ b/lib/Reaction/Meta/InterfaceModel/Object/Class.pm @@ -16,7 +16,8 @@ class Class is 'Reaction::Meta::Class', which { implements add_domain_model => as{ my $self = shift; - $self->add_attribute( DomainModelAttribute->new(@_) ); + my $name = shift; + $self->add_attribute($name, metaclass => DomainModelAttribute, @_); }; implements parameter_attributes => as { |