view release on metacpan or  search on metacpan

lib/IO/EPP/Test/Server.pm  view on Meta::CPAN

    # or $srv_url = $obj->{sock};
    my $s = new IO::EPP::Test::Server( $srv_url );
    my $doms  = $s->data->{doms};

    # Set reg_id as admin_id
    $doms->{'nssdom.best'}{reg_id} = $doms->{admin_id}[0];

    # Add new ns
    push @{$doms->{'nssdom.best'}{nss}}, 'ns9.reg.com';

    $doms->{'new_busy_domain.com'} = { avail => 0, reason => 'in use' };

See IO::EPP::Test::Base also.

=cut

our $data;

sub new {
    my ( undef, $url ) = @_;