From 849e8d4037dcfef428c177e4958f154d9e5bb3aa Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 10 Dec 2009 15:54:49 -0800
Subject: [PATCH] Change get_property_list from an attribute to a method in
 Definition::Meta::Class.

---
 lib/WebGUI/Definition/Meta/Class.pm | 22 +++++++++-------------
 1 file changed, 9 insertions(+), 13 deletions(-)

diff --git a/lib/WebGUI/Definition/Meta/Class.pm b/lib/WebGUI/Definition/Meta/Class.pm
index 75d9a79d6..f0aeaf078 100644
--- a/lib/WebGUI/Definition/Meta/Class.pm
+++ b/lib/WebGUI/Definition/Meta/Class.pm
@@ -52,19 +52,15 @@ Returns the name of all properties, in the order they were created in the Defini
 
 =cut
 
-
-has 'get_property_list' => (
-    is => 'ro',
-    default => sub {
-        my $self   = shift;
-        my @properties =
-            map { $_->name }
-            sort { $a->insertion_order <=> $b->insertion_order }
-            grep { $_->meta->isa('WebGUI::Definition::Meta::Property') }
-            $self->meta->get_all_attributes;
-        return \@properties;
-    },
-);
+sub get_property_list {
+    my $self   = shift;
+    my @properties =
+        map { $_->name }
+        sort { $a->insertion_order <=> $b->insertion_order }
+        grep { $_->meta->isa('WebGUI::Definition::Meta::Property') }
+        $self->meta->get_all_attributes;
+    return \@properties;
+}
 
 #-------------------------------------------------------------------