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;
}