use strict;
use warnings;
use XML::Twig;
my $twig = XML::Twig->new(
pretty_print => 'indented',
twig_handlers => {
TMPL_IF => sub {
my ($t, $TMPL_IF) = @_;
$TMPL_IF->set_text( 'changed it' );
}
}
);
$twig->parse(\*DATA);
$twig->print;
__DATA__
test
waka waka
waka waka waka
####
test
changed it
changed it