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
109 2 2 1 not exists $self->{'logging_ctx'}{'protocol'} and defined $self->name
132 0 0 31 defined $self and defined $what
134 0 0 31 defined $fn and ref $fn eq 'HASH'
0 31 0 defined $fn and ref $fn eq 'HASH' and exists $fn->{$what}
0 0 31 defined $fn and ref $fn eq 'HASH' and exists $fn->{$what} and ref $fn->{$what} eq 'CODE'
183 0 0 0 defined $mod and length $mod
190 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}
199 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
219 0 0 10 $msg and ref $msg
0 0 10 $msg and ref $msg and $msg->isa('Net::DRI::Protocol::Message')
225 0 0 10 defined $pf and ref $pf eq 'CODE'
238 0 0 10 $msg and ref $msg
0 0 10 $msg and ref $msg and $msg->isa('Net::DRI::Protocol::Message')
246 10 0 0 exists $h->{'message'} and exists $h->{'message'}{'result'}
251 0 0 0 defined $pf and ref $pf eq 'CODE'
259 4 0 6 defined $pf and ref $pf eq 'CODE'
269 0 0 10 ref $v1 eq 'HASH' and keys %$v1
272 0 0 10 ref $v2 eq 'HASH' and keys %$v2
295 31 0 2 defined $object and defined $code
306 8 0 4 defined $action and defined $object

or 3 conditions

line l !l&&r !l&&!r condition
150 0 0 3 exists $done{$class} or $class =~ /^-/
0 0 3 exists $done{$class} or $class =~ /^-/ or exists $skip{$class}
244 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'