view release on metacpan or  search on metacpan

lib/SRS/EPP/Common/Domain/NameServers.pm  view on Meta::CPAN

use Moose::Role;

requires 'make_response';

# Given a list of EPP nameservers, translate it into a list of SRS nameservers
#  If a HostObj is found in the EPP list (which is not supported) then an
#  exception is returned with an appropriate error response that can be returned
#  to the client (created via the required method 'make_response'.
# This might be a slightly unusual interface, but it means the generation of the
#  response is consistent across consumers of this role
# TODO: in hindsight, perhaps we should split this into validate/translate methods,
#  similar to SRS::EPP::Common::Contact
sub translate_ns_epp_to_srs {
	my $self = shift;
	my @ns = @_;

	my @ns_objs;
	foreach my $ns (@ns) {
		unless ($ns->isa('XML::EPP::Domain::HostAttr')) {
			die $self->make_response(
				Error => (