view release on metacpan or  search on metacpan

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

                              'statuses' => {
                                              'ok' => '+',
                                              'linked' => 1
                                            },
                              'owner' => 'test',
                              'cre_date' => '2019-09-23T22:46:33.0Z'
                            }
            },

Dump of domain

    'doms' => {
            'nssdom.best' => {
                               'upd_date' => '2019-09-23T22:54:12.0Z',
                               'create' => 'test',
                               'nss' => {
                                          'ns1.reg.com' => '+',
                                          'ns2.reg.com' => '+'
                                        },
                               'hosts' => {},
                               'exp_date' => '2020-09-23T22:54:12.0Z',
                               'cre_date' => '2019-09-23T22:54:12.0Z',
                               'trans_date' => '2019-09-23T22:54:12.0Z',
                               'billing' => [
                                              'TEST-b123'
                                            ],
                               'statuses' => {
                                               'ok' => '+'
                                             },
                               'tech' => [
                                           'TEST-t123'
                                         ],
                               'authInfo' => 'bfhRem884mfmf,FMd:fnnfe',
                               'avail' => 0,
                               'reason' => 'in use',
                               'owner' => 'test',
                               'registrant' => 'TEST-r123',
                               'admin' => [
                                            'TEST-a123'
                                          ],
                               'roid' => 'C3163119E2B3E038F41A60248A2B4214-TEST'
                             },
           },


=head1 DIRECT ACCESS TO DATA

An Example:

    my $srv_url = "$socket_data->{PeerHost}:$socket_data->{PeerPort}";
    # 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 ) = @_;

    $data = {} unless ref $data;

    unless ( $data->{$url} ) {
        $data->{$url} = { conts => {}, nss => {}, doms => {}, poll => [] };
    }

    my $s = { url => $url };

    return bless $s;
}

sub data {
    return $data->{$_[0]->{url}};
}


sub DESTROY {
    # for debug
    #print Dumper $_[0];
    #print Dumper $data;
}

1;