#!/usr/bin/perl --

use strict;
use warnings;

use WWW::Mechanize;
use HTML::TableExtract qw(tree);

start();
exit();

sub start {
  my $agent = WWW::Mechanize->new( stack_depth => 0 );
  $agent->agent_alias('Windows IE 6');

  $agent->get('http://www.perlmonks.org/');
  my $page = $agent->content;

  for ( my $c = 0 ; $c < 500 ; $c++ ) {
    my $te = HTML::TableExtract->new();
    $te->parse($page);
    $te->eof;
    print "$te c is $c\n";
    eval { $te->delete; };    ## leaks memory without this call as exp
+ected
    undef $te;
    select undef, undef, undef, 0.1;
  } ## end for ( my $c = 0 ; $c < ...)
} ## end sub start

BEGIN {

  sub HTML::TableExtract::DESTROY {
    my ($self) = @_;

    for my $key ( keys %$self ) {
      eval { $self->{$key}->delete; };
      eval { $self->{$key}->detach; };
      delete $self->{$key};
    }
    return;
  } ## end sub HTML::TableExtract::DESTROY

  *HTML::ElementTable::DESTROY        = \&HTML::TableExtract::DESTROY;
  *HTML::ElementGlob::DESTROY         = \&HTML::TableExtract::DESTROY;
  *HTML::TableExtract::Table::DESTROY = \&HTML::TableExtract::DESTROY;
} ## end BEGIN
[download]