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
#############################################################################
