From 7f479273256d7a0a97800fc6fe4211266e5bf7e7 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Thu, 23 Jun 2011 13:02:27 -0500
Subject: [PATCH] use a default label instead of requiring one

---
 lib/WebGUI/Definition/Meta/Class.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Definition/Meta/Class.pm b/lib/WebGUI/Definition/Meta/Class.pm
index 0cf7d39f9..425f14e00 100644
--- a/lib/WebGUI/Definition/Meta/Class.pm
+++ b/lib/WebGUI/Definition/Meta/Class.pm
@@ -51,7 +51,7 @@ These methods are available from this class:
 sub add_property {
     my ($self, $name, %options) = @_;
     if (! (exists $options{noFormPost} || exists $options{label}) ) {
-        Moose->throw_error("Must pass either noFormPost or label when making a property");
+        $options{label} = $name;
     }
     $options{traits} ||= [];
     push @{ $options{traits} }, @{ $self->property_metaroles };