| Subject: | breaking circular references |
package Pod::Compiler; should have a DESTROY method
to break circular references. The following ought to suffice
sub DESTROY {
my $self = shift;
delete $self->{_current};
$self->root->delete_tree();
}