| line |
true |
false |
branch |
|
161
|
58 |
1 |
Net::DRI::Util::has_key($rh, 'cache_ttl') ? : |
|
|
8 |
51 |
Net::DRI::Util::has_key($rh, 'trid_factory') && ref $$rh{'trid_factory'} eq 'CODE' ? : |
|
170
|
5 |
54 |
if (Net::DRI::Util::has_key($rh, 'logging')) { } |
|
172
|
0 |
5 |
ref $$rh{'logging'} eq 'ARRAY' ? : |
|
177
|
59 |
0 |
unless ($logname =~ s/^\+//) |
|
198
|
0 |
59 |
unless Net::DRI::Util::all_valid($reg) |
|
199
|
59 |
0 |
unless $reg =~ /^\+/ |
|
203
|
0 |
57 |
unless $drd and ref $drd |
|
205
|
0 |
57 |
unless $drd->can('name') |
|
207
|
0 |
57 |
unless index($regname, '.') == -1 |
|
208
|
0 |
57 |
if exists $$self{'registries'}{$regname} |
|
211
|
0 |
57 |
unless $drd->can('tlds') |
|
215
|
475 |
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 |
99 |
unless defined $regname and $regname |
|
269
|
0 |
99 |
unless exists $$self{'registries'}{$regname} |
|
271
|
99 |
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 |
45 |
if (defined $driver and not exists $$self{'registries'}{$driver}) |
|
300
|
0 |
12 |
unless @t == 1 |
|
304
|
0 |
57 |
unless defined $driver |
|
305
|
0 |
57 |
unless defined $driver and $driver |
|
307
|
0 |
57 |
if (defined $profile) |
|
324
|
0 |
99 |
unless $attr =~ /[^A-Z]/ |
|
327
|
0 |
99 |
unless ref $ndr and $ndr->can($attr) |
|
337
|
57 |
0 |
if ref $v and $v->can('end') |
|
344
|
59 |
0 |
if (defined $$self{'logging'}) |
|
364
|
46 |
2 |
if $ok |
|
|
2 |
0 |
ref $@ ? : |
|
365
|
0 |
0 |
if $ok |
|
|
0 |
0 |
ref $@ ? : |
|
366
|
84 |
0 |
wantarray ? : |
|
|
84 |
0 |
if ($ok) |
|
|
0 |
0 |
ref $@ ? : |
|
367
|
46 |
0 |
if $ok |
|
|
0 |
0 |
ref $@ ? : |
|
368
|
48 |
0 |
if $ok |
|
|
0 |
0 |
ref $@ ? : |
|
376
|
45 |
39 |
unless ($ok) |
|
379
|
45 |
0 |
ref $err ? : |
|
381
|
0 |
39 |
wantarray ? : |