NAME

Net::EPP::ResponseCodes - a module to export some constants that correspond to EPP response codes.

SYNOPSIS

    use Net::EPP::ResponseCodes;
    use Net::EPP::Simple;
    use strict;
    my $epp = Net::EPP::Simple->new(
        host    => 'epp.nic.tld',
        user    => 'my-id',
        pass    => 'my-password',
    );
    my $result = $epp->domain_transfer_request('example.tld', 'foobar', 1);
    if ($result) {
        print "Transfer initiated OK\n";
    } else {
        if ($Net::EPP::Simple::Code == OBJECT_PENDING_TRANSFER) {
            print "Error: domain is already pending transfer\n";
        } elsif ($Net::EPP::Simple::Code == INVALID_AUTH_INFO) {
            print "Error: invalid authcode provided\n";
        } elsif ($Net::EPP::Simple::Code == OBJECT_DOES_NOT_EXIST) {
            print "Error: domain not found\n";
        } elsif ($Net::EPP::Simple::Code == STATUS_PROHIBITS_OP) {
            print "Error: domain cannot be transferred\n";
        } else {
            print "Error code $Net::EPP::Simple::Code\n";
        }
    }

DESCRIPTION

Every response sent to the client by an EPP server contains at least one "<result>" element that has a "code" attribute. This is a four-digit numeric code that describes the result of the request. This module exports a set of constants that provide handy mnemonics for each of the defined codes.