Larry Wall ##

##

my $trigger = "prefix:monastery/prefix:foo/prefix2:bar/prefix2:monk";
my $twig = XML::Twig->new(TwigHandlers => { $trigger => \&function });

##

##

my $trigger = "*:monastery/*:foo/*:bar/*:monk";
my $twig = XML::Twig->new(TwigHandlers => { $trigger => \&function });

##

##

my $xml_ns = {
"http://perlmonks.org" => prefix,
"http://perlmonks.org/blah" => prefix2
};
my $trigger = "prefix:monastery/prefix:foo/prefix2:bar/prefix2:monk";
my $twig = XML::Twig->new(
  map_xmlns => $xml_ns,
  TwigHandlers => { $trigger => \&function }
);

##

##

use XML::Twig;
use strict;
my $twig = XML::Twig->new(
    map_xmlns => {
        "http://perlmonks.org"  => 'aaa',
        "http://perlmonks.org/blah"=> 'bbb'
    },
    TwigHandlers => {
        '/aaa:monastery/aaa:foo/bbb:bar/bbb:monk' => sub { warn "matched!"; $_[0]->purge; }
    }
);

my $xml =<

  
    
       Larry Wall
    
  

XML

$twig->parse($xml);

##

##


use XML::Twig;
use strict;
my $twig = XML::Twig->new(
    TwigHandlers => {
        '/prefix:monastery/prefix:foo/prefix2:bar/prefix2:monk' => sub { warn "matched!"; $_[0]->purge; }
    }
);
my $xml =<

  
    
       Larry Wall
    
  

XML

$twig->parse($xml);