diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-21 11:19:00 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-21 11:19:00 -0600 |
commit | 231745b0fd56e122e09165e1d8ffd57ae86ae749 (patch) | |
tree | ed4874d3b365d3c9b62151cf230952cdf5d29a4c /lib | |
parent | 0a7125e470e2067f75faf81f7e1890bc402e5e98 (diff) | |
download | bread-board-declare-231745b0fd56e122e09165e1d8ffd57ae86ae749.tar.gz bread-board-declare-231745b0fd56e122e09165e1d8ffd57ae86ae749.zip |
handle defaults with native traits properly
Diffstat (limited to 'lib')
-rw-r--r-- | lib/MooseX/Bread/Board/Meta/Role/Attribute.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm b/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm index e44b30e..19492ae 100644 --- a/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm +++ b/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm @@ -2,6 +2,7 @@ package MooseX::Bread::Board::Meta::Role::Attribute; use Moose::Role; use Bread::Board::Types; +use List::MoreUtils qw(any); use MooseX::Bread::Board::BlockInjection; use MooseX::Bread::Board::ConstructorInjection; @@ -101,6 +102,11 @@ after _process_options => sub { || exists $opts->{block} || exists $opts->{value}; + # XXX: uggggh + return if any { $_ eq 'Moose::Meta::Attribute::Native::Trait::String' + || $_ eq 'Moose::Meta::Attribute::Native::Trait::Counter' } + @{ $opts->{traits} }; + die "default is not valid when Bread::Board service options are set"; }; |