===================================================================
RCS file: /cvs/todotxt/Text-Todo/lib/Text/Todo.pm,v
retrieving revision 1.17
retrieving revision 1.20
diff -u -r1.17 -r1.20
--- todotxt/Text-Todo/lib/Text/Todo.pm	2010/01/12 20:09:02	1.17
+++ todotxt/Text-Todo/lib/Text/Todo.pm	2010/01/18 03:04:48	1.20
@@ -1,6 +1,6 @@
 package Text::Todo;
 
-# $AFresh1: Todo.pm,v 1.16 2010/01/12 19:40:52 andrew Exp $
+# $AFresh1: Todo.pm,v 1.19 2010/01/18 02:46:48 andrew Exp $
 
 use warnings;
 use strict;
@@ -14,10 +14,13 @@
 
 {
 
-    my %path_of;
-    my %list_of;
-    my %loaded_of;
+    my @attr_refs = \(
+        my %path_of,
 
+        my %list_of,
+        my %loaded_of,
+    );
+
     sub new {
         my ( $class, $options ) = @_;
 
@@ -382,6 +385,14 @@
 
         croak "Invalid entry [$entry]!";
     }
+
+    sub DESTROY {
+        my ($self) = @_;
+        my $ident = ident $self;
+        foreach my $attr_ref (@attr_refs) {
+            delete $attr_ref->{$ident};
+        }
+    }
 }
 
 1;    # Magic true value required at end of module
@@ -397,7 +408,7 @@
 Since the $VERSION can't be automatically included, 
 here is the RCS Id instead, you'll have to look up $VERSION.
 
-    $Id: Todo.pm,v 1.17 2010/01/12 20:09:02 andrew Exp $
+    $Id: Todo.pm,v 1.20 2010/01/18 03:04:48 andrew Exp $
 
 =head1 SYNOPSIS