$p->insert( table => { border=> 1}, 'tr', 'td')
####
original content of p
##
#!/usr/bin/perl -w
use strict;
use XML::Twig;
my $t= XML::Twig->new( twig_handlers => { _all_ => sub { $_->insert( sort values %{$_->atts});
$_->del_atts;
},
},
)
->parse( \*DATA)
->print;
__DATA__
This is test. emp this emp is emp test.