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 | |
parent | 510f6c258c4f33c20a555db88cdb148e0f451e55 (diff) | |
download | reaction-905a0946cb98604ca2eda11557d7a8772acb6212.tar.gz reaction-905a0946cb98604ca2eda11557d7a8772acb6212.zip |
valid_values as inheritable option
-rw-r--r-- | Makefile.PL | 2 | ||||
-rw-r--r-- | lib/Reaction/Meta/Attribute.pm | 4 | ||||
-rw-r--r-- | lib/Reaction/Meta/InterfaceModel/Action/ParameterAttribute.pm | 2 |
3 files changed, 6 insertions, 2 deletions
diff --git a/Makefile.PL b/Makefile.PL index 32017ca..7e299b3 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -15,7 +15,7 @@ requires 'Test::Class' => 0; requires 'Test::Memory::Cycle' => 0; requires 'DBIx::Class' => '0.07001'; requires 'SQL::Translator' => '0.08'; -requires 'Moose' => '0.43'; +requires 'Moose' => '0.54'; requires 'aliased' => 0; requires 'DateTime'; requires 'DateTime::Span'; 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' ); |