1use Test; 2BEGIN { plan tests => 4 } 3 4use XML::XPath; 5ok(1); 6 7my $xp = XML::XPath->new(ioref => *DATA); 8ok($xp); 9 10my @en = $xp->findnodes('//*[lang("en")]'); 11ok(@en, 2); 12 13my @de = $xp->findnodes('//content[lang("de")]'); 14ok(@de, 1); 15 16__DATA__ 17<page xml:lang="en"> 18 <content>Here we go...</content> 19 <content xml:lang="de">und hier deutschsprachiger Text :-)</content> 20</page> 21