| line |
true |
false |
branch |
|
96
|
0 |
0 |
unless ($change) |
|
98
|
0 |
0 |
unless $self->voice and $self->type |
|
102
|
0 |
0 |
if $self->name and grep {length $_ > 50;} $self->name |
|
103
|
0 |
0 |
if $self->org and grep {length $_ > 100;} $self->org |
|
106
|
0 |
0 |
if $self->type and not $self->type =~ /^(?:billing|tech|registrant|onsite|accmgr)$/ |
|
107
|
0 |
0 |
if $self->vat and not Net::DRI::Util::xml_is_token($self->vat, 1, 20) |
|
108
|
0 |
0 |
if $self->lang and not $self->lang =~ /^(?:fr|nl|en)$/ |
|
110
|
0 |
0 |
if @errs |
|
112
|
0 |
0 |
if $self->type and $self->type =~ /^(?:type|billing|accmgr)$/ and not $self->org |
|
120
|
0 |
0 |
if ($what eq 'create') |
|
123
|
0 |
0 |
unless $a and ref $a eq 'HASH' and exists $$a{'pw'} |
|
124
|
0 |
0 |
unless defined $self->srid |
|
132
|
0 |
0 |
if (defined $what and $what) |
|
134
|
0 |
0 |
if $what eq 'licensee' |