| line |
true |
false |
branch |
|
102
|
0 |
0 |
defined $self->{'profile'} ? : |
|
109
|
0 |
0 |
$full ? : |
|
131
|
4 |
51 |
unless defined $self->{'profile'} |
|
132
|
0 |
51 |
unless exists $self->{'profiles'}{$self->{'profile'}} |
|
133
|
0 |
51 |
unless defined $what and exists $self->{'profiles'}{$self->{'profile'}}{$what} |
|
135
|
10 |
41 |
if ($what eq 'status' and $tostore) |
|
151
|
0 |
14 |
unless $self and $f |
|
159
|
0 |
3 |
unless defined $p |
|
160
|
0 |
3 |
unless exists $self->{'profiles'}{$p}{'status'} |
|
162
|
0 |
3 |
unless Net::DRI::Util::is_class($rc, 'Net::DRI::Protocol::ResultStatus') |
|
163
|
0 |
3 |
if $f eq 'self' |
|
164
|
0 |
3 |
unless $f and $rc->can($f) |
|
184
|
0 |
20 |
unless defined $p |
|
198
|
0 |
5 |
unless (Net::DRI::Util::all_valid($type, $key, $action)) |
|
202
|
5 |
0 |
if (not defined $a or $a ne $action) |
|
208
|
0 |
0 |
unless (keys %{$$self{'last_data'};}) |
|
238
|
0 |
28 |
unless defined $what and $what |
|
240
|
5 |
23 |
if (Net::DRI::Util::all_valid($type, $key)) { } |
|
243
|
0 |
5 |
unless defined $p |
|
248
|
0 |
23 |
unless exists $self->{'last_data'}{$what} |
|
258
|
0 |
0 |
if (Net::DRI::Util::all_valid($type, $key)) { } |
|
261
|
0 |
0 |
unless defined $p |
|
269
|
0 |
0 |
unless defined $rh and ref $rh and keys %$rh |
|
288
|
0 |
1 |
unless $profile and exists $self->{'profiles'}{$profile} |
|
297
|
11 |
0 |
unless defined $p |
|
305
|
0 |
0 |
unless $profile and exists $self->{'profiles'}{$profile} |
|
310
|
0 |
0 |
unless exists $rh->{$otype} |
|
319
|
11 |
0 |
unless exists $at->{$otype} |
|
320
|
11 |
0 |
unless exists $at->{$otype} |
|
322
|
0 |
0 |
unless defined $ac and ref $ac |
|
323
|
0 |
0 |
unless exists $ac->{$oaction} |
|
324
|
0 |
0 |
unless exists $ac->{$oaction} |
|
332
|
1 |
0 |
if $rc->is_success |
|
347
|
0 |
66 |
unless (Net::DRI::Util::all_valid($name, $type)) |
|
348
|
0 |
66 |
if ($self->exist_profile($name)) |
|
349
|
0 |
66 |
if (defined $trans_p and ref $trans_p ne 'HASH') |
|
350
|
0 |
66 |
if (defined $prot_p and ref $prot_p ne 'HASH') |
|
355
|
66 |
0 |
if (exists $INC{'Test/More.pm'} and defined $trans_p and exists $trans_p->{'f_send'}) |
|
363
|
0 |
66 |
if (not Net::DRI::Util::all_valid($tc, $tp, $pc, $pp) or ref $tp ne 'HASH' or ref $pp ne 'HASH') |
|
365
|
66 |
0 |
if defined $trans_p |
|
366
|
32 |
34 |
if defined $prot_p |
|
368
|
2 |
64 |
if $drd->can('transport_protocol_init') |
|
376
|
1 |
0 |
if $po->can('transport_default') |
|
384
|
0 |
1 |
unless ($ok) |
|
387
|
0 |
0 |
if ref $err eq 'Net::DRI::Protocol::ResultStatus' |
|
388
|
0 |
0 |
unless ref $err |
|
391
|
0 |
1 |
if defined $rc and not $rc->is_success |
|
397
|
1 |
0 |
unless defined $rc |
|
405
|
0 |
0 |
if (defined $name) { } |
|
407
|
0 |
0 |
unless $self->exist_profile($name) |
|
410
|
0 |
0 |
unless defined $self->{'profile'} |
|
415
|
0 |
0 |
if ref $p->{'protocol'} and $p->{'protocol'}->can('end') |
|
416
|
0 |
0 |
if ref $p->{'transport'} and $p->{'transport'}->can('end') |
|
418
|
0 |
0 |
if $self->{'profile'} eq $name |
|
428
|
1 |
0 |
if ref $p->{'transport'} and $p->{'transport'}->can('end') |
|
429
|
0 |
1 |
if ref $p->{'protocol'} and $p->{'protocol'}->can('end') |
|
433
|
0 |
66 |
if $self->{'driver'}->can('end') |
|
456
|
0 |
11 |
unless defined $pa |
|
457
|
11 |
0 |
unless defined $ta |
|
470
|
0 |
10 |
unless ($ok) |
|
488
|
0 |
10 |
if defined $pause and $pause and $count > 1 |
|
489
|
0 |
10 |
if $count > 1 |
|
493
|
10 |
0 |
if $timeout |
|
498
|
10 |
0 |
if $to->is_sync |
|
504
|
10 |
0 |
if $timeout |
|
505
|
0 |
10 |
unless (defined $r and $r) |
|
508
|
0 |
0 |
if ref $err eq 'Net::DRI::Protocol::ResultStatus' |
|
509
|
0 |
0 |
!ref($err) && $err =~ /timeout/ ? : |
|
510
|
0 |
0 |
$is_timeout ? : |
|
|
0 |
0 |
unless ref $err |
|
511
|
0 |
0 |
$is_timeout ? : |
|
512
|
0 |
0 |
if $to->try_again($ctx, $po, $err, $count, $is_timeout, $self->{'ops'}{$trid}[0], \$pause, \$timeout) |
|
515
|
10 |
0 |
if defined $r |
|
517
|
0 |
10 |
if ($prevalarm) |
|
520
|
0 |
0 |
if $prevalarm > 0 |
|
522
|
0 |
10 |
unless defined $r |
|
529
|
0 |
0 |
if (ref $err eq 'Net::DRI::Protocol::ResultStatus') |
|
534
|
0 |
0 |
unless ref $err |
|
549
|
0 |
10 |
unless defined $res |
|
556
|
0 |
0 |
if ($rc->is_closing or exists $ri->{'_internal'} and exists $ri->{'_internal'}{'must_reconnect'} and $ri->{'_internal'}{'must_reconnect'}) |
|
575
|
10 |
10 |
if $oname and $type eq $otype and $key eq $oname |
|
581
|
10 |
0 |
if ($oname and $otype) |
|
584
|
10 |
0 |
if exists $ri->{$otype} and exists $ri->{$otype}{$oname} |
|
594
|
10 |
10 |
if exists $v2->{'result_status'} |
|
601
|
10 |
0 |
if $oname |
|
611
|
0 |
10 |
if $otype eq 'account' and $oaction eq 'list_domains' |
|
613
|
0 |
10 |
unless defined $o |
|
614
|
0 |
10 |
if ref $o eq 'ARRAY' |
|
615
|
10 |
0 |
unless ref $o |
|
616
|
0 |
0 |
$otype eq 'nsgroup' ? : |
|
|
0 |
0 |
if Net::DRI::Util::isa_hosts($o) |
|
617
|
0 |
0 |
if Net::DRI::Util::isa_contact($o) |
|
626
|
0 |
7 |
unless $op and $subop |
|
632
|
0 |
7 |
unless $cap and ref $cap eq 'HASH' and exists $cap->{$op} and ref $cap->{$op} eq 'HASH' and exists $cap->{$op}{$subop} and ref $cap->{$op}{$subop} eq 'ARRAY' |
|
634
|
3 |
4 |
unless defined $action and $action |
|
638
|
4 |
2 |
if $a eq $action |
|
647
|
67 |
69 |
if defined $self->{'profile'} |
|
659
|
0 |
13 |
unless $attr =~ /[^A-Z]/ |
|
662
|
0 |
13 |
unless ref $drd and $drd->can($attr) |