use Test::More;
use XML::XSS;
my $xss = XML::XSS->new;
$xss->set( 'foo' => {
pre => 'one',
showtag => 'two',
} );
$xss->set( '#comment' => {
rename => 'comment',
} );
is_deeply [ $xss->get('#comment')->style_attributes ], [ sort qw/ process pre
showtag rename post filter replace / ];
is_deeply { $xss->get('#comment')->style_attribute_hash }, {
rename => 'comment',
};
is_deeply { $xss->get('#comment')->style_attribute_hash(all=>1) }, {
rename => 'comment',
map { $_ => undef } qw/ process pre showtag post filter replace
/,
};
done_testing;