| line |
true |
false |
branch |
|
37
|
0 |
0 |
unless ($change) |
|
39
|
0 |
0 |
defined $r && length $r ? : |
|
40
|
0 |
0 |
if @missing |
|
41
|
0 |
0 |
unless Net::DRI::Util::xml_is_token($self->srid, 3, 16) |
|
44
|
0 |
0 |
if defined $self->sp and defined $self->cc and $self->cc eq 'CA' and not $self->sp =~ /^(?:AB|BC|MB|NB|NL|NT|NS|NU|ON|PE|QC|SK|YT)$/ |
|
46
|
0 |
0 |
if defined $self->legal_form and not $self->legal_form =~ /^(?:CCO|CCT|RES|GOV|EDU|ASS|HOP|PRT|TDM|TRD|PLT|LAM|TRS|ABO|INB|LGR|OMK|MAJ)$/ |
|
47
|
0 |
0 |
if defined $self->lang and not $self->lang =~ /^(?:fr|en)$/o |
|
48
|
0 |
0 |
if defined $self->ip_address and not Net::DRI::Util::is_ipv4($self->ip_address, 1) and not Net::DRI::Util::is_ipv6($self->ip_address, 1) |
|
49
|
0 |
0 |
if (defined $self->agreement) |
|
52
|
0 |
0 |
if ref $ra ne 'HASH' or 2 != keys %$ra or not exists $$ra{'version'} or not exists $$ra{'signed'} or length $$ra{'version'} > 4 or not $$ra{'signed'} =~ /^(?:0|1)$/ |
|
54
|
0 |
0 |
if defined $self->reseller_id and length $self->reseller_id > 255 |
|
55
|
0 |
0 |
if defined $self->whois_display and not $self->whois_display =~ /^(?:FULL|PRIVATE)$/o |
|
57
|
0 |
0 |
if @errs |
|
64
|
0 |
0 |
if ($what eq 'create') |
|
67
|
0 |
0 |
unless $a and ref $a eq 'HASH' and exists $$a{'pw'} |