| line |
true |
false |
branch |
|
166
|
67 |
1 |
Net::DRI::Util::has_key($rh, 'cache_ttl') ? : |
|
|
12 |
56 |
Net::DRI::Util::has_key($rh, 'trid_factory') && ref $rh->{'trid_factory'} eq 'CODE' ? : |
|
170
|
5 |
63 |
if (Net::DRI::Util::has_key($rh, 'logging')) { } |
|
172
|
0 |
5 |
ref $rh->{'logging'} eq 'ARRAY' ? : |
|
177
|
68 |
0 |
unless ($logname =~ s/^\+//) |
|
198
|
0 |
68 |
unless Net::DRI::Util::all_valid($reg) |
|
199
|
68 |
0 |
unless $reg =~ /^\+/ |
|
203
|
0 |
66 |
unless $drd and ref $drd |
|
205
|
0 |
66 |
unless $drd->can('name') |
|
207
|
0 |
66 |
unless index($regname, '.') == -1 |
|
208
|
0 |
66 |
if exists $self->{'registries'}{$regname} |
|
211
|
0 |
66 |
unless $drd->can('tlds') |
|
215
|
529 |
0 |
unless exists $self->{'tlds'}{$tld} |
|
228
|
0 |
0 |
if (defined $name) { } |
|
230
|
0 |
0 |
unless exists $self->{'registries'}{$name} |
|
233
|
0 |
0 |
unless defined $self->{'current_registry'} |
|
238
|
0 |
0 |
if $self->{'current_registry'} eq $name |
|
268
|
0 |
108 |
unless defined $regname and $regname |
|
269
|
0 |
108 |
unless exists $self->{'registries'}{$regname} |
|
271
|
108 |
0 |
wantarray ? : |
|
277
|
0 |
12 |
unless defined $tld and $tld |
|
279
|
0 |
12 |
if $tld =~ /\.([a-z0-9]+)$/ |
|
280
|
0 |
12 |
unless exists $self->{'tlds'}{$tld} |
|
297
|
12 |
54 |
if (defined $driver and not exists $self->{'registries'}{$driver}) |
|
300
|
0 |
12 |
unless @t == 1 |
|
304
|
0 |
66 |
unless defined $driver |
|
305
|
0 |
66 |
unless defined $driver and $driver |
|
307
|
0 |
66 |
if (defined $profile) |
|
324
|
0 |
108 |
unless $attr =~ /[^A-Z]/ |
|
327
|
0 |
108 |
unless ref $ndr and $ndr->can($attr) |
|
337
|
66 |
0 |
if ref $v and $v->can('end') |
|
344
|
68 |
0 |
if (defined $self->{'logging'}) |
|
364
|
55 |
2 |
if $ok |
|
|
2 |
0 |
ref $@ ? : |
|
365
|
0 |
0 |
if $ok |
|
|
0 |
0 |
ref $@ ? : |
|
366
|
93 |
0 |
wantarray ? : |
|
|
93 |
0 |
if ($ok) |
|
|
0 |
0 |
ref $@ ? : |
|
367
|
55 |
0 |
if $ok |
|
|
0 |
0 |
ref $@ ? : |
|
368
|
57 |
0 |
if $ok |
|
|
0 |
0 |
ref $@ ? : |
|
376
|
54 |
39 |
unless ($ok) |
|
379
|
54 |
0 |
ref $err ? : |
|
381
|
0 |
39 |
wantarray ? : |