File Coverage

blib/lib/Net/DRI/Data/Contact/COZA.pm

Criterion	Covered	Total	%
statement	15	35	42.8
branch	0	14	0.0
condition	0	23	0.0
subroutine	5	6	83.3
pod	0	1	0.0
total	20	79	25.3

## Domain Registry Interface, Handling of contact data for .CO.ZA
##
## Copyright (c) 2011 Patrick Mevzek . All rights reserved.
##
## This file is part of Net::DRI
##
## Net::DRI is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 2 of the License, or
## (at your option) any later version.
##
## See the LICENSE file that comes with this distribution for more details.
#########################################################################################

package Net::DRI::Data::Contact::COZA;

use strict;
use warnings;

use base qw(Net::DRI::Data::Contact);

use Net::DRI::Exception;
use Net::DRI::Util;

####################################################################################################

sub validate ## See http://registry.coza.net.za/doku.php?id=eppcontactconstraints
{
 my ($self,$change)=@_;
 $change||=0;
 my @errs;

 $self->SUPER::validate($change); ## will trigger an Exception if problem

 my @rs=($self->street());
 foreach my $i (0,1)
 {
  next unless defined $rs[$i];
  push @errs,'street' if ((ref($rs[$i]) ne 'ARRAY') || (@{$rs[$i]} > 3) || (grep { !Net::DRI::Util::xml_is_normalizedstring($_,8,255) } @{$rs[$i]}));
 }

 push @errs,'city'  if ($self->city()  && grep { !Net::DRI::Util::xml_is_normalizedstring($_,2,255) } ($self->city()));
 push @errs,'sp'    if ($self->sp()    && grep { !Net::DRI::Util::xml_is_normalizedstring($_,2,255) } ($self->sp()));

 my $ra=$self->auth();
 push @errs,'auth' if ($ra && (ref($ra) eq 'HASH') && exists($ra->{pw}) && !Net::DRI::Util::xml_is_normalizedstring($ra->{pw}));

 ## disclose not supported at all
 push @errs,'disclose' if defined $self->disclose();

 Net::DRI::Exception::usererr_invalid_parameters('Invalid contact information: '.join('/',@errs)) if @errs;
 return 1; ## everything ok.
}

####################################################################################################
1;

__END__