Condition Coverage

blib/lib/Net/DRI/Protocol.pm
Criterion Covered Total %
condition 30 90 33.3


and 3 conditions

line !l l&&!r l&&r condition
107 2 2 1 not exists $$self{'logging_ctx'}{'protocol'} and defined $self->name
130 0 0 31 defined $self and defined $what
132 0 0 31 defined $fn and ref $fn
0 0 31 defined $fn and ref $fn and exists $$fn{$what}
0 0 31 defined $fn and ref $fn and exists $$fn{$what} and ref $$fn{$what} eq 'CODE'
181 0 0 0 defined $mod and length $mod
188 0 0 0 defined $class and length $class
0 0 0 defined $class and length $class and exists $$self{'commands_by_class'}{$class}
0 0 0 defined $class and length $class and exists $$self{'commands_by_class'}{$class} and exists $$self{'commands_by_class'}{$class}{$otype}
0 0 0 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}
197 0 0 20 defined $otype and length $otype
0 0 20 defined $otype and length $otype and defined $oaction
0 0 20 defined $otype and length $otype and defined $oaction and length $oaction
217 0 0 10 $msg and ref $msg
0 0 10 $msg and ref $msg and $msg->isa('Net::DRI::Protocol::Message')
223 0 0 10 defined $pf and ref $pf eq 'CODE'
236 0 0 10 $msg and ref $msg
0 0 10 $msg and ref $msg and $msg->isa('Net::DRI::Protocol::Message')
244 10 0 0 exists $$h{'message'} and exists $$h{'message'}{'result'}
249 0 0 0 defined $pf and ref $pf eq 'CODE'
257 4 0 6 defined $pf and ref $pf eq 'CODE'
267 0 0 10 ref $v1 eq 'HASH' and keys %$v1
270 0 0 10 ref $v2 eq 'HASH' and keys %$v2
293 31 0 2 defined $object and defined $code
304 8 0 4 defined $action and defined $object

or 3 conditions

line l !l&&r !l&&!r condition
148 0 0 3 exists $done{$class} or $class =~ /^-/
0 0 3 exists $done{$class} or $class =~ /^-/ or exists $skip{$class}
242 7 3 0 $otype eq 'domain' or $otype eq 'host'
10 0 0 $otype eq 'domain' or $otype eq 'host' or $otype eq 'nsgroup'
3 0 0 $otype eq 'domain' or $otype eq 'host' or $otype eq 'nsgroup' or $otype eq 'keygroup'