#!/usr/bin/perl
use XML::Twig;
my $t=XML::Twig->new( twig_handlers => { name => \&my_s });
$t->parse('AliceBob');
sub my_s {
my ($twig, $section, $greeting) = @_;
print $greeting || "Hello" , ", ", $section->text(), "!\n";
}
# Yields:
# Hello, Alice!
# Hello, Bob!
####
my $t=XML::Twig->new( twig_handlers => { name => \&my_s("Hi") });
# Can't call method "text" on an undefined value
# likewise with &my_s->("Hi")