use strict;
use XML::Twig;
my $t = XML::Twig->new(
twig_handlers => {table => \&handler},
pretty_print => 'indented',
);
$t->parse(\*DATA);
sub handler {
my($t,$table) = @_;
$table->flush
if $table->att('border') == 0
and $table->att('align') eq 'center'
;
}
__DATA__
XML::Twig table extract test
