diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-02-21 12:52:56 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-02-21 12:52:56 -0600 |
commit | eb3f39183f1e1039a4d9a73cb1c2b19ea514c436 (patch) | |
tree | 24d5a2c1c27b5d35661fa078040b4ad9f87aff5d /lib | |
parent | 7254fb6a608b1f54d52572a859356236d0a0ba2e (diff) | |
download | bread-board-declare-eb3f39183f1e1039a4d9a73cb1c2b19ea514c436.tar.gz bread-board-declare-eb3f39183f1e1039a4d9a73cb1c2b19ea514c436.zip |
also disallow builder
Diffstat (limited to 'lib')
-rw-r--r-- | lib/MooseX/Bread/Board/Meta/Role/Attribute.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm b/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm index eae04cc..48779fe 100644 --- a/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm +++ b/lib/MooseX/Bread/Board/Meta/Role/Attribute.pm @@ -98,7 +98,8 @@ after _process_options => sub { my $class = shift; my ($name, $opts) = @_; - return unless exists $opts->{default}; + return unless exists $opts->{default} + || exists $opts->{builder}; return unless exists $opts->{class} || exists $opts->{block} || exists $opts->{value}; @@ -108,7 +109,8 @@ after _process_options => sub { || $_ eq 'Moose::Meta::Attribute::Native::Trait::Counter' } @{ $opts->{traits} }; - die "default is not valid when Bread::Board service options are set"; + my $exists = exists($opts->{default}) ? 'default' : 'builder'; + die "$exists is not valid when Bread::Board service options are set"; }; around get_value => sub { |