[svn:p5ee] r9736 - p5ee/trunk/App-Context/lib/App

Author: spadkins
Date: Fri Jul 13 11:52:36 2007
New Revision: 9736

Modified:
   p5ee/trunk/App-Context/lib/App/ValueDomain.pm

Log:
Added an unload subroutine

Modified: p5ee/trunk/App-Context/lib/App/ValueDomain.pm
==============================================================================
--- p5ee/trunk/App-Context/lib/App/ValueDomain.pm	(original)
+++ p5ee/trunk/App-Context/lib/App/ValueDomain.pm	Fri Jul 13 11:52:36 2007
@@ -202,6 +202,21 @@
     &App::sub_exit() if ($App::trace);
 }
 
+
+sub unload {
+    &App::sub_entry if ($App::trace);
+    my ($self) = @_;
+
+    my $class = ref($self);
+
+    if ($class ne "App::ValueDomain") {
+        delete $self->{values};
+        delete $self->{labels};
+        delete $self->{values_string}; 
+    }
+    &App::sub_exit() if ($App::trace);
+}
+
 #############################################################################
 # PROTECTED METHODS
 #############################################################################