| line |
true |
false |
branch |
|
107
|
1 |
4 |
if not exists $$self{'logging_ctx'}{'protocol'} and defined $self->name |
|
108
|
0 |
5 |
ref $data1 ? : |
|
115
|
0 |
0 |
unless exists $$self{'iso8601_parser'} |
|
123
|
0 |
0 |
unless exists $$self{'strptime_parser'}{$key} |
|
130
|
0 |
31 |
unless defined $self and defined $what |
|
132
|
0 |
31 |
unless defined $fn and ref $fn and exists $$fn{$what} and ref $$fn{$what} eq 'CODE' |
|
148
|
0 |
3 |
if exists $done{$class} or $class =~ /^-/ or exists $skip{$class} |
|
151
|
0 |
3 |
unless $class->can('register_commands') |
|
155
|
0 |
3 |
if ($class->can('capabilities_add')) |
|
158
|
0 |
0 |
if (ref $a[0]) { } |
|
166
|
0 |
3 |
if $class->can('setup') |
|
181
|
0 |
0 |
unless defined $mod and length $mod |
|
182
|
0 |
0 |
grep({$_ eq $mod;} @{$$self{'loaded_modules'};}) ? : |
|
188
|
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} |
|
189
|
0 |
0 |
wantarray ? : |
|
197
|
0 |
20 |
unless defined $otype and length $otype and defined $oaction and length $oaction |
|
199
|
0 |
20 |
unless exists $$h{$otype} |
|
200
|
0 |
20 |
unless exists $$h{$otype}{$oaction} |
|
207
|
0 |
0 |
eval {
do {
my $h = $self->_load_commands($otype, $oaction);
1
}
} ? : |
|
217
|
0 |
10 |
unless $msg and ref $msg and $msg->isa('Net::DRI::Protocol::Message') |
|
223
|
0 |
10 |
unless defined $pf and ref $pf eq 'CODE' |
|
236
|
0 |
10 |
unless $msg and ref $msg and $msg->isa('Net::DRI::Protocol::Message') |
|
242
|
0 |
0 |
if $otype eq 'domain' or $otype eq 'host' or $otype eq 'nsgroup' or $otype eq 'keygroup' |
|
244
|
0 |
10 |
if (exists $$h{'message'} and exists $$h{'message'}{'result'}) |
|
249
|
0 |
0 |
unless defined $pf and ref $pf eq 'CODE' |
|
257
|
4 |
6 |
unless defined $pf and ref $pf eq 'CODE' |
|
262
|
10 |
0 |
if (defined $rc) |
|
264
|
10 |
0 |
unless $rc->trid |
|
267
|
0 |
10 |
unless ref $v1 eq 'HASH' and keys %$v1 |
|
270
|
0 |
10 |
unless ref $v2 eq 'HASH' and keys %$v2 |
|
271
|
0 |
10 |
if exists $$v2{'result_status'} |
|
293
|
2 |
31 |
if (defined $object and defined $code) |
|
304
|
4 |
8 |
if (defined $action and defined $object) |
|
306
|
2 |
2 |
unless exists $$self{'capabilities'}{$action} |
|
307
|
4 |
0 |
if (defined $cap) { } |