The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

use strict;
use warnings;

use Test::More tests => 1;    # last test to print

use XML::XSS;

my $xss = XML::XSS->new;

$xss->set(
    a => { content => 'A' },
    b => { content => 'B' },
);

is $xss->render('<doc><a/><b/></doc>') => '<doc>AB</doc>',
  'set deals with more than one element';