Branch Coverage

blib/lib/Net/SIP/NATHelper/Base.pm
Criterion Covered Total %
branch 0 102 0.0


line true false branch
138 0 0 unless ($call)
163 0 0 unless ($call)
196 0 0 if ($call->is_empty)
273 0 0 if (my $max = $self->{'max_sockets_in_group'})
274 0 0 if ($need_sockets > $max)
281 0 0 if (my $max = $self->{'max_sockets'})
282 0 0 if ($self->{'socket_count'} + $need_sockets > $max)
293 0 0 unless (@socks)
298 0 0 if (not $port or $addr eq '0.0.0.0' or $addr eq '::') { }
373 0 0 unless ($data)
375 0 0 if ($cseq_data)
377 0 0 if ($_ > $cseq)
399 0 0 if ($side == 0) { }
402 0 0 unless 'Net::SIP::NATHelper::SocketGroup'->new($nathelper, $idfrom, $addr, $media)
408 0 0 unless 'Net::SIP::NATHelper::SocketGroup'->new($nathelper, $idto, $addr, $media)
427 0 0 unless ($data)
433 0 0 if (my $sess = $sessions->{$idto})
440 0 0 unless ($gfrom and $gto)
479 0 0 if ($cseq) { }
483 0 0 unless (my $sess = $data && delete $data->{'sessions'}{$idto})
504 0 0 unless (@info)
547 0 0 if ($lastmod < $expire_active) { }
0 0 elsif (my $created = &max($active_pairs{"$idfrom\000$idto"} || 0, $active_pairs{"$idto\000$idfrom"} || 0)) { }
556 0 0 if ($created > $sess->{'created'}) { }
0 0 elsif ($created < $sess->{'created'}) { }
585 0 0 if $data->{'socket_group_from'}
587 0 0 if $used{$v}
589 0 0 if (not $lastmod) { }
0 0 elsif ($lastmod < $expire_active) { }
591 0 0 if ($v->{'created'} < $expire_unused)
602 0 0 if %expired_sg and delete $expired_sg{$data->{'socket_group_from'}}
603 0 0 if (%expired_sg)
605 0 0 if delete $expired_sg{$groups->{$id}}
606 0 0 unless %expired_sg
613 0 0 unless $need_next_pass
632 0 0 unless (%{$data->{'socket_groups_to'};} or $data->{'socket_group_from'})
637 0 0 unless (%$by_cseq)
642 0 0 %$by_from ? :
697 0 0 if $sf
742 0 0 if (@{$sfrom->get_socks;} != @{$sto->get_socks;})
820 0 0 if $callbacks
855 0 0 if $dstaddr
869 0 0 if $recvaddr
889 0 0 if (not $$bytes) { }
0 0 elsif ($$rfrom and $peer ne $$rfrom) { }
890 0 0 if ($peer eq $$rfrom) { }
893 0 0 if connect $read_socket, $peer
908 0 0 if ($$rto) { }
909 0 0 unless (send $write_socket, $buf, 0, $$rto)
918 0 0 unless (send $write_socket, $buf, 0)
966 0 0 unless my $new_media = $nathelper->get_rtp_sockets($new_addr, $media)