Commit 0fd9dbae authored by Mattias Päivärinta's avatar Mattias Päivärinta
Browse files

Tidy

parent fd6a6b09
......@@ -51,7 +51,7 @@ The default types are:
=cut
Readonly my %DOMAIN_STATUS_CODES =>(
Readonly my %DOMAIN_STATUS_CODES => (
addPeriod => 1,
autoRenewPeriod => 1,
clientDeleteProhibited => 1,
......
......@@ -50,8 +50,8 @@ sub extract_roid {
}
elsif ( $token eq 'roid line' ) {
ref $value eq 'ARRAY' or croak "'roid line' value expected to be arrayref";
defined $value->[0] or croak "'roid line' value expected to have roid at position 0";
defined $value->[1] or croak "'hostname' value expected to have roid at position 1";
defined $value->[0] or croak "'roid line' value expected to have roid at position 0";
defined $value->[1] or croak "'hostname' value expected to have roid at position 1";
my ( $roid, $hostname ) = @{$value};
my @errors;
push @errors, grep { $_ ne 'expected roid suffix to be a registered epp repo id' } $types->validate_type( 'roid', $roid );
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment