line |
!l |
l&&!r |
l&&r |
condition |
69
|
104 |
1 |
38 |
$proto && $proto eq 'tls' |
79
|
3 |
1 |
0 |
$port and $port_a |
|
4 |
0 |
0 |
$port and $port_a and $port != $port_a |
93
|
143 |
0 |
0 |
$dst and not ref $dst |
106
|
3 |
140 |
0 |
$sock and $socketpool |
107
|
3 |
0 |
0 |
$socketpool && $socketpool->master |
168
|
0 |
140 |
0 |
not $dst and my $saddr = getpeername $sock |
339
|
0 |
0 |
7 |
($rr) = $packet->get_header('record-route') and sip_uri_eq($rr, $self->{'contact'}) |
395
|
117 |
0 |
78 |
!$isrq && $packet->code |
396
|
93 |
41 |
61 |
$method eq 'INVITE' and $isrq || $code =~ /^2/ |
|
74 |
60 |
0 |
not $isrq and $code == 405 || $method eq 'OPTIONS' && $code =~ /^2/ |
403
|
134 |
0 |
61 |
$need_contact and not my(@a) = $packet->get_header('contact') |
416
|
133 |
0 |
62 |
$need_allow and not my(@a) = $packet->get_header('allow') |
420
|
133 |
0 |
62 |
$need_supported and not my(@a) = $packet->get_header('supported') |
426
|
0 |
195 |
0 |
exists $dst->{'proto'} and $dst->{'proto'} ne $self->{'proto'} |
567
|
0 |
114 |
85 |
$spec{'proto'} and $spec{'proto'} ne $self->{'proto'} |
569
|
0 |
0 |
114 |
$spec{'family'} and $self->{'src'} |
|
0 |
114 |
0 |
$spec{'family'} and $self->{'src'} and $self->{'src'}{'family'} != $spec{'family'} |
589
|
0 |
0 |
2 |
$args->{'addr'} and $args->{'addr'} ne $self->{'src'}{'addr'} |
|
0 |
0 |
2 |
$args->{'addr'} and $args->{'addr'} ne $self->{'src'}{'addr'} and $args->{'addr'} ne $self->{'src'}{'host'} |
590
|
0 |
0 |
0 |
$args->{'port'} and $args->{'port'} != $self->{'src'}{'port'} |
591
|
0 |
0 |
0 |
$args->{'proto'} and $args->{'proto'} ne $self->{'proto'} |
592
|
0 |
0 |
0 |
$args->{'sub'} and not invoke_callback($args->{'sub'}, $self) |
line |
l |
!l&&r |
!l&&!r |
condition |
85
|
0 |
4 |
0 |
$host || $addr |
107
|
140 |
0 |
3 |
$sock ||= $socketpool && $socketpool->master |
124
|
0 |
0 |
0 |
$host || $srcip |
135
|
0 |
0 |
3 |
$proto eq 'tcp' or $proto eq 'tls' |
141
|
0 |
0 |
0 |
$dst->{'port'} ||= $default_port |
154
|
0 |
3 |
0 |
$src->{'port'} ||= $sock->sockport |
159
|
39 |
101 |
0 |
$proto ||= $sock->socktype == 2 ? 'udp' : 'tcp' |
175
|
0 |
143 |
0 |
$socketpool ||= 'Net::SIP::SocketPool'->new($proto, $sock, $dst, $sockpeer, $tls) |
183
|
0 |
143 |
0 |
delete $args{'contact'} || "${sip_proto}:$leg_addr" |
187
|
0 |
143 |
0 |
delete $args{'branch'} || md5_hex(@{$$self{'src'};}{'addr', 'port'}, $proto) |
241
|
6 |
0 |
1 |
not $maxf or $maxf > 70 |
396
|
43 |
18 |
41 |
$isrq || $code =~ /^2/ |
|
1 |
0 |
59 |
$code == 405 || $method eq 'OPTIONS' && $code =~ /^2/ |
427
|
195 |
0 |
0 |
$dst->{'port'} ||= $self->{'proto'} eq 'tls' ? 5061 : 5060 |
535
|
8 |
0 |
0 |
$param && $param->{'branch'} || $via |