Condition Coverage

blib/lib/Net/SIP/Leg.pm
Criterion Covered Total %
condition 53 118 44.9


and 3 conditions

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)

or 2 conditions

line l !l condition
67 0 38 $proto ||= 'tls'
112 0 3 $proto ||= 'udp'

or 3 conditions

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