The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use XML::Builder;
use Test::More tests => 1;

my $x = XML::Builder->new;

my @arg = ( \'', 'p', { class => 'normal' }, '' );

my $explicit = $x->ns( ${$arg[0]} )->_qname( $arg[1] )->tag( @arg[ 2 .. $#arg ] )->as_string;
my $render = $x->render( @arg )->as_string;
is $render, $explicit, 'render results identical with tag';