* Added DESTROY method to call subclasses _destroy methods

[class_modular.git/.git] / Class / Modular / Modular.pm

diff --git a/Class/Modular/Modular.pm b/Class/Modular/Modular.pm
index 061d927e688ceed67effd20ff466ac4829dfa22d..58025bfe66a820416bb25b728ab077eb30f88154 100644 (file)
--- a/Class/Modular/Modular.pm
+++ b/Class/Modular/Modular.pm
@@ -1,8 +1,8 @@
 # This module is part of DA, Don Armstrong's Modules, and is released
 # under the terms of the GPL version 2, or any later version. See the
-# file README and COPYING for more information. Copyright 2002 by Don
+# file README and COPYING for more information. Copyright 2003 by Don
 # Armstrong <don@donarmstrong.com>.
-# $Id: Modular.pm,v 1.1 2003/08/31 23:38:55 don Exp $
+# $Id: Modular.pm,v 1.3 2003/09/13 05:46:53 don Exp $
 
 package Class::Modular;
 
@@ -55,7 +55,7 @@ use Carp;
 use Data::Copy qw(deep_copy); # Used for deep copying objects
 
 BEGIN{
-     ($VERSION) = q$Revision: 1.1 $ =~ /\$Revision:\s+([^\s+])/;
+     ($VERSION) = q$Revision: 1.3 $ =~ /\$Revision:\s+([^\s+])/;
      $DEBUG = 0 unless defined $DEBUG;
 }
 
@@ -245,6 +245,40 @@ sub clone {
 }
 
 
+=head2 DESTROY
+
+=head3 Usage
+
+Called by perl.
+
+=head3 Function
+
+Calls all subclass _destroy methods.
+
+Subclasses need only implement a _destroy method if they have
+references that need to be uncircularized, or things that should be
+disconnected or closed.
+
+=cut
+
+sub DESTROY{
+     my $self = shift;
+     foreach my $subclass (keys %{$self->{_subclasses}}) {
+         # use eval to try and call the subclasses _destroy method.
+         # Ignore no such function errors, but trap other types of
+         # errors.
+         eval {
+              no strict refs;
+              &$subclass::_destroy($self,$clone);
+         };
+         if ($@) {
+              # Die unless we've hit an undefined subroutine.
+              die $@ unless $@ =~ /Undefined\s*subroutine\s*\&.*\:\:\_clone/;
+              warn "$subclass doesn't have a _clone method\n$@" if $DEBUG;
+         }
+     }
+}
+
 
 =head2 AUTOLOAD