Condition Coverage

blib/lib/Net/SIP/Util.pm
Criterion Covered Total %
condition 57 118 48.3


and 2 conditions

line l !l condition
600 0 0 $host =~ /:/ && 10
650 371 0 $fam != 2 and !1
725 0 0 not $family and !1

and 3 conditions

line !l l&&!r l&&r condition
40 0 308 112 not defined $args{'GetAddrInfoFlags'} and $args{'Domain'} || $args{'Family'}
136 0 0 29 $bracket and not $quoted
259 0 85 46 $param && %$param
280 0 165 9 $proto && $proto eq 'sips'
324 0 0 7 lc $d1 eq lc $d2 && $port1 == $port2 && (defined $u1 ? defined $u2 && $u1 eq $u2 : !defined($u2)) && $p1 eq $p2
585 85 0 141 exists $hash->{'use_host'} and $hash->{'use_host'}
0 0 141 exists $hash->{'use_host'} and $hash->{'use_host'} and $hash->{'host'}
0 0 141 exists $hash->{'use_host'} and $hash->{'use_host'} and $hash->{'host'} and $fam
0 141 0 exists $hash->{'use_host'} and $hash->{'use_host'} and $hash->{'host'} and $fam and $hash->{'host'} ne $hash->{'addr'}
592 84 136 6 exists $hash->{'default_port'} and $port == $hash->{'default_port'}
602 0 452 0 $fam and $fam != 2

or 2 conditions

line l !l condition
45 61 0 getprotobyname $args{'Proto'} || die("Unknown protocol: $args{'Proto'}")
117 8 736 $delimiter{$key} || ';'
149 370 374 pos $v || 0
190 0 150 $delimiter{$key} || ';'
232 154 152 $proto ||= 'sip'
253 131 0 $proto || 'sip'
347 2 3 $port || 5060
377 0 5 $proto ||= 'udp'
420 13 35 $range ||= 2
428 0 48 $tries ||= 1000
442 96 0 INETSOCK('Family', $fam, 'Proto', 'udp', 'LocalAddr', $laddr, 'LocalPort', $port + $i) || (last)

or 3 conditions

line l !l&&r !l&&!r condition
40 0 112 308 $args{'Domain'} || $args{'Family'}
45 359 61 0 $cached_proto{$args{'Proto'}} ||= getprotobyname $args{'Proto'} || die("Unknown protocol: $args{'Proto'}")
133 0 0 29 $bracket or $quoted
139 0 37 380 $quoted || $bracket
320 2 0 0 $1 || $2
322 2 0 0 $1 || $2
395 5 0 0 $p || (ip_sockaddr2parts(getsockname $sock))[1]
423 0 48 0 $max ||= $RTP_MAX_PORT
425 0 0 0 $max ||= $min + 10000
471 80 0 92 UNIVERSAL::isa($cb, 'SCALAR') or UNIVERSAL::isa($cb, 'REF')
584 226 0 0 $hash->{'addr'} || $hash->{'host'}
599 447 5 1 $port or $ipv6_brackets
600 452 0 0 $fam ||= $host =~ /:/ && 10
626 121 86 0 $fam ||= $addr =~ /:/ ? 10 : 2
649 0 371 0 $fam ||= length $sockaddr >= 24 ? 10 : 2
673 0 0 0 $fam ||= length $sockaddr >= 24 ? 10 : 2
692 64 0 0 $family ||= $ip =~ /:/ ? 10 : 2
712 0 44 0 $family ||= $ip =~ /:/ ? 10 : 2
728 0 0 0 $err or not @result