| line |
true |
false |
branch |
|
109
|
1 |
4 |
if not exists $self->{'logging_ctx'}{'protocol'} and defined $self->name |
|
110
|
0 |
5 |
ref $data1 ? : |
|
117
|
0 |
0 |
unless exists $self->{'iso8601_parser'} |
|
125
|
0 |
0 |
unless exists $self->{'strptime_parser'}{$key} |
|
132
|
0 |
31 |
unless defined $self and defined $what |
|
134
|
0 |
31 |
unless defined $fn and ref $fn eq 'HASH' and exists $fn->{$what} and ref $fn->{$what} eq 'CODE' |
|
150
|
0 |
3 |
if exists $done{$class} or $class =~ /^-/ or exists $skip{$class} |
|
153
|
0 |
3 |
unless $class->can('register_commands') |
|
157
|
0 |
3 |
if ($class->can('capabilities_add')) |
|
160
|
0 |
0 |
if (ref $a[0]) { } |
|
168
|
0 |
3 |
if $class->can('setup') |
|
183
|
0 |
0 |
unless defined $mod and length $mod |
|
184
|
0 |
0 |
grep({$_ eq $mod;} @{$$self{'loaded_modules'};}) ? : |
|
190
|
0 |
0 |
unless defined $class and length $class and exists $self->{'commands_by_class'}{$class} and exists $self->{'commands_by_class'}{$class}{$otype} and exists $self->{'commands_by_class'}{$class}{$otype}{$oaction} |
|
191
|
0 |
0 |
wantarray ? : |
|
199
|
0 |
20 |
unless defined $otype and length $otype and defined $oaction and length $oaction |
|
201
|
0 |
20 |
unless exists $h->{$otype} |
|
202
|
0 |
20 |
unless exists $h->{$otype}{$oaction} |
|
209
|
0 |
0 |
eval {
do {
my $h = $self->_load_commands($otype, $oaction);
1
}
} ? : |
|
219
|
0 |
10 |
unless $msg and ref $msg and $msg->isa('Net::DRI::Protocol::Message') |
|
225
|
0 |
10 |
unless defined $pf and ref $pf eq 'CODE' |
|
238
|
0 |
10 |
unless $msg and ref $msg and $msg->isa('Net::DRI::Protocol::Message') |
|
244
|
0 |
0 |
if $otype eq 'domain' or $otype eq 'host' or $otype eq 'nsgroup' or $otype eq 'keygroup' |
|
246
|
0 |
0 |
if (exists $h->{'message'} and exists $h->{'message'}{'result'}) |
|
251
|
0 |
0 |
unless defined $pf and ref $pf eq 'CODE' |
|
259
|
4 |
6 |
unless defined $pf and ref $pf eq 'CODE' |
|
264
|
10 |
0 |
if (defined $rc) |
|
266
|
10 |
0 |
unless $rc->trid |
|
269
|
0 |
10 |
unless ref $v1 eq 'HASH' and keys %$v1 |
|
272
|
0 |
10 |
unless ref $v2 eq 'HASH' and keys %$v2 |
|
273
|
0 |
10 |
if exists $v2->{'result_status'} |
|
295
|
2 |
31 |
if (defined $object and defined $code) |
|
306
|
4 |
8 |
if (defined $action and defined $object) |
|
308
|
2 |
2 |
unless exists $self->{'capabilities'}{$action} |
|
309
|
4 |
0 |
if (defined $cap) { } |