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 @[EMAIL PROTECTED] -202,6 +202,21 @[EMAIL PROTECTED] &App::sub_exit() if ($App::trace); } + +sub unload { + &App::sub_entry if ($App::trace); + my ($self) = @[EMAIL PROTECTED] 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 #############################################################################
