Branch Coverage

blib/lib/Net/DRI/Data/Contact/CIRA.pm
Criterion Covered Total %
branch 0 30 0.0


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'}