diff options
author | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-07-04 17:43:09 +0000 |
---|---|---|
committer | wreis <wreis@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-07-04 17:43:09 +0000 |
commit | 905a0946cb98604ca2eda11557d7a8772acb6212 (patch) | |
tree | a8252f7c2d0857da9193611844851a796d850af7 /lib/Reaction/Meta | |
parent | 510f6c258c4f33c20a555db88cdb148e0f451e55 (diff) | |
download | reaction-905a0946cb98604ca2eda11557d7a8772acb6212.tar.gz reaction-905a0946cb98604ca2eda11557d7a8772acb6212.zip |
valid_values as inheritable option
Diffstat (limited to 'lib/Reaction/Meta')
-rw-r--r-- | lib/Reaction/Meta/Attribute.pm | 4 | ||||
-rw-r--r-- | lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lib/Reaction/Meta/Attribute.pm b/lib/Reaction/Meta/Attribute.pm index a925982..b6ea1a0 100644 --- a/lib/Reaction/Meta/Attribute.pm +++ b/lib/Reaction/Meta/Attribute.pm @@ -8,6 +8,10 @@ extends 'Moose::Meta::Attribute'; has lazy_fail => (is => 'ro', reader => 'is_lazy_fail', required => 1, default => 0); +around legal_options_for_inheritance => sub { + return (shift->(@_), qw/valid_values/); +}; + around _process_options => sub { my $super = shift; my ($class, $name, $options) = @_; diff --git a/lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm b/lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm index b838444..6c2a651 100644 --- a/lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm +++ b/lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm @@ -6,7 +6,7 @@ use Scalar::Util 'blessed'; class ParameterAttribute is 'Reaction::Meta::Attribute', which { has valid_values => ( isa => 'CodeRef', - is => 'rw', # hack since clone_and_inherit hates me. + is => 'rw', # doesnt need of it anymore, maybe we should warn before change it predicate => 'has_valid_values' ); |