Branch Coverage

blib/lib/Net/SIP/NATHelper/Base.pm
Criterion Covered Total %
branch 0 110 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 if (my $sess = $data && delete $data->{'sessions'}{$idto}) { }
489 0 0 if ($data and not %{$data->{'sessions'};})
506 0 0 if (my $sess = delete $data->{'sessions'}{$to})
510 0 0 unless (%{$data->{'sessions'};})
517 0 0 if @del_cseq
519 0 0 unless (@info)
562 0 0 if ($lastmod < $expire_active) { }
0 0 elsif (my $created = &max($active_pairs{"$idfrom\000$idto"} || 0, $active_pairs{"$idto\000$idfrom"} || 0)) { }
571 0 0 if ($created > $sess->{'created'}) { }
0 0 elsif ($created < $sess->{'created'}) { }
601 0 0 if $data->{'socket_group_from'}
603 0 0 if $used{$v}
605 0 0 if (not $lastmod) { }
0 0 elsif ($lastmod < $expire_active) { }
607 0 0 if ($v->{'created'} < $expire_unused)
618 0 0 if %expired_sg and delete $expired_sg{$data->{'socket_group_from'}}
619 0 0 if (%expired_sg)
621 0 0 if delete $expired_sg{$groups->{$id}}
622 0 0 unless %expired_sg
629 0 0 unless $need_next_pass
648 0 0 unless (%{$data->{'socket_groups_to'};} or $data->{'socket_group_from'})
653 0 0 unless (%$by_cseq)
658 0 0 %$by_from ? :
713 0 0 if $sf
758 0 0 if (@{$sfrom->get_socks;} != @{$sto->get_socks;})
836 0 0 if $callbacks
871 0 0 if $dstaddr
885 0 0 if $recvaddr
905 0 0 if (not $$bytes) { }
0 0 elsif ($$rfrom and $peer ne $$rfrom) { }
906 0 0 if ($peer eq $$rfrom) { }
909 0 0 if connect $read_socket, $peer
924 0 0 if ($$rto) { }
925 0 0 unless (send $write_socket, $buf, 0, $$rto)
934 0 0 unless (send $write_socket, $buf, 0)
982 0 0 unless my $new_media = $nathelper->get_rtp_sockets($new_addr, $media)