File Coverage

blib/lib/IO/EPP/Test/CNic.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	0	2	0.0
total	31	33	93.9

package IO::EPP::Test::CNic;

=encoding utf8

=head1 NAME

IO::EPP::Test::CNic

=head1 SYNOPSIS

Call IO::EPP::CNic with parameter "test_mode=1"

=head1 DESCRIPTION

Module for testing IO::EPP::CNic,
emulates answers of CentralNic server

=head1 AUTHORS

Vadim Likhota

=cut

use IO::EPP::Test::Base;

use strict;
use warnings;

no utf8; # !!!

sub req {
    my ( $obj, $out_data, undef ) = @_;

    my $in_data;

    if ( !$out_data  or  $out_data =~ m|]+/>| ) {
        $in_data = hello( $out_data );
    }
    else {
        return IO::EPP::Test::Base::req( @_ );
    }

    return $in_data;
}


sub hello {
    my $dt = IO::EPP::Test::Base::get_dates();

    return qq|CentralNic EPP server EPP.CENTRALNIC.COM$dt1.0enurn:ietf:params:xml:ns:domain-1.0urn:ietf:params:xml:ns:contact-1.0urn:ietf:params:xml:ns:host-1.0urn:ietf:params:xml:ns:rgp-1.0urn:ietf:params:xml:ns:secDNS-1.1urn:ietf:params:xml:ns:idn-1.0urn:ietf:params:xml:ns:fee-0.4urn:ietf:params:xml:ns:fee-0.5urn:ietf:params:xml:ns:launch-1.0urn:ietf:params:xml:ns:regtype-0.1urn:ietf:params:xml:ns:auxcontact-0.1urn:ietf:params:xml:ns:artRecord-0.2http://www.nic.coop/contactCoopExt-1.0|;
}

1;