testaccount3 ##

##

for my $remove ($frame->findnodes(q{/command/update/contact:update/contact:add})) {
    $remove->unbindNode;
}

##

##

XPath error : Undefined namespace prefix
 error : xmlXPathCompiledEval: evaluation failed

##

##

sub new {
    my $package = shift;
    my $self = bless($package->SUPER::new('update'), $package);

    my $contact = $self->addObject(Net::EPP::Frame::ObjectSpec->spec('contact'));

    foreach my $grp (qw(add rem chg)) {
        my $el = $self->createElement(sprintf('contact:%s', $grp));
        $self->getNode('update')->getChildNodes->shift->appendChild($el);
    }

    return $self;
}

##

##

my $p = $frame->getElementsByTagName('contact:update');
    foreach my $n ($p->[0]->childNodes()) {
        $p->[0]->removeChild($n) if $n->toString(1) eq "";
    }