Condition Coverage

blib/lib/Net/Inet.pm
Criterion Covered Total %
condition 32 141 22.7


and 3 conditions

line !l l&&!r l&&r condition
347 0 0 0 @_ != 1 and not wantarray
356 5 0 0 @_ != 1 and not wantarray
365 0 0 0 @_ != 1 and not wantarray
374 0 0 0 @_ != 1 and not wantarray
437 2 0 0 $debug > 1 and ref $self ne $class || !("$self" =~ /HASH/)
485 0 0 0 @args == 1 and ref $args[0]
0 0 0 @args == 1 and ref $args[0] and ref $args[0] eq 'ARRAY'
486 0 0 0 $which ne 'dest' and $which ne 'this'
489 0 0 0 @$aref == 3 and ref $$aref[2]
0 0 0 @$aref == 3 and ref $$aref[2] and ref $$aref[2] eq 'HASH'
510 2 0 0 @args == 1 and !ref($args[0]) || ref $args[0] ne 'HASH'
526 0 0 0 $self->isconnecting and not $self->blocking
538 0 0 0 @args and not $self->_hostport('dest', @args)
559 0 0 0 @delkeys and $self->isconnected
575 0 1 0 defined $addr and substr($newval, 0, 1) eq '['
582 1 0 0 not @hinfo and $hname =~ s/\.$//
585 1 0 0 not @hinfo and defined $addr
596 0 1 0 not $addr =~ /.\../ and $hinfo[1]
3591 0 0 0 @delkeys and $self->isconnected
3598 1 0 0 not defined $pname || $proto and defined($type = $self->getparam('type'))
3608 0 1 0 defined $proto and not defined $pname
3626 1 0 0 defined $port and $port =~ /\D/
3637 0 1 0 not $defport and $newval =~ /\D/
1 0 0 $defport and $newval
3639 0 0 0 $key eq $pkey and not $newval =~ /\D/
3662 1 0 0 $svc and $self->debug
3664 0 1 0 defined $port and $self->debug
3739 2 0 0 defined $rem and length $rem
3744 0 0 2 defined $lcl and length $lcl
4481 1 0 0 @args and not $self->_hostport('this', @args)

or 3 conditions

line l !l&&r !l&&!r condition
437 0 0 0 ref $self ne $class || !("$self" =~ /HASH/)
510 0 0 0 !ref($args[0]) || ref $args[0] ne 'HASH'
0 0 2 @args > 1 or @args == 1 and !ref($args[0]) || ref $args[0] ne 'HASH'
526 0 0 0 $self->connect or $self->isconnecting and not $self->blocking
547 0 0 1 @_ != 3 or ref ${*$self;}{'Keys'}{$key} ne 'CODE'
608 0 1 0 defined $cport or defined $port
1 0 0 defined $cport or defined $port or $pkey eq 'thisport'
3574 0 0 1 @_ != 3 or not exists ${*$self;}{'Keys'}{$key}
3598 1 0 0 defined $pname || $proto
3630 0 0 1 $skey eq $key or $newval =~ /\D/
3633 0 0 1 $newval =~ /\D/ or @serv
3637 0 0 1 $key eq $skey or $newval =~ /\D/
3672 0 1 0 defined($host = ${*$self;}{'Parms'}{$hkey}) or $hkey eq 'thishost'
3688 2 0 4 $key ne 'proto' or $newval =~ /\D/
3695 2 0 4 defined $proto or $newval =~ /\D/
3728 0 4 0 getservbyport(htons($port), ref $this && $this->getparam('IPproto')) || $port
3749 0 0 0 defined $lcl || defined $rem