From 231745b0fd56e122e09165e1d8ffd57ae86ae749 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 21 Feb 2011 11:19:00 -0600
Subject: handle defaults with native traits properly

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

(limited to 'lib')

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";
 };
 
-- 
cgit v1.2.3-54-g00ecf