From eb3f39183f1e1039a4d9a73cb1c2b19ea514c436 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 21 Feb 2011 12:52:56 -0600
Subject: also disallow builder

---
 lib/MooseX/Bread/Board/Meta/Role/Attribute.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'lib')

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 {
-- 
cgit v1.2.3-54-g00ecf