From f4467cb10f2542498e162ba2daf96ba7134b9166 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 11 Mar 2010 13:40:00 -0800
Subject: [PATCH] Attempt #1 to pass traits through property.

---
 lib/WebGUI/Definition/Meta/Class.pm | 35 +++++++----------------------
 1 file changed, 8 insertions(+), 27 deletions(-)

diff --git a/lib/WebGUI/Definition/Meta/Class.pm b/lib/WebGUI/Definition/Meta/Class.pm
index 2e386f4e5..98797db3f 100644
--- a/lib/WebGUI/Definition/Meta/Class.pm
+++ b/lib/WebGUI/Definition/Meta/Class.pm
@@ -53,21 +53,18 @@ sub add_property {
     if (! (exists $options{noFormPost} || exists $options{label}) ) {
         Moose->throw_error("Must pass either noFormPost or label when making a property");
     }
-    my %form_options;
-    my $prop_meta_roles = $self->property_metaroles;
-    my $prop_meta = $self->_property_metaclass;
+    $options{traits} ||= [];
+    push @{ $options{traits} }, @{ $self->property_metaroles };
+    my $prop_meta = Moose::Meta::Attribute->interpolate_class(\%options);
+    my %form_options = ();
     for my $key ( keys %options ) {
-        if ( ! $prop_meta->find_attribute_by_name($key) ) {
+        if ( ! $prop_meta->meta->find_attribute_by_name($key) ) {
             $form_options{$key} = delete $options{$key};
         }
     }
-    $self->add_attribute(
-        $name,
-        is          => 'rw',
-        traits      => $prop_meta_roles,
-        form        => \%form_options,
-        %options,
-    );
+    $options{is}    = 'rw';
+    $options{form}  = \%form_options;
+    $self->add_attribute( $name, %options );
 }
 
 #-------------------------------------------------------------------
@@ -199,21 +196,5 @@ has property_metaroles => (
     default => sub { ['WebGUI::Definition::Meta::Property' ] },
 );
 
-has _property_metaclass => (
-    is  => 'ro',
-    lazy => 1,
-    builder => '_build_property_metaclass',
-);
-
-sub _build_property_metaclass {
-    my $self = shift;
-    my $class = Moose::Meta::Class->create_anon_class(
-        superclasses => [ $self->attribute_metaclass ],
-        roles        => $self->property_metaroles,
-        cache        => 1,
-    );
-    return $class;
-}
-
 1;