| blib/lib/Net/SIP/NATHelper/Base.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % | 
| condition | 0 | 71 | 0.0 | 
| line | !l | l&&!r | l&&r | condition | 
|---|---|---|---|---|
| 373 | 0 | 0 | 0 | $cseq_data && $cseq_data->{$cseq} | 
| 428 | 0 | 0 | 0 | $by_cseq && $by_cseq->{$cseq} | 
| 442 | 0 | 0 | 0 | $gfrom and $gto | 
| 488 | 0 | 0 | 0 | $data && $data->{$cseq} | 
| 489 | 0 | 0 | 0 | $data && delete $data->{'sessions'}{$idto} | 
| 495 | 0 | 0 | 0 | $data and not %{$data->{'sessions'};} | 
| 626 | 0 | 0 | 0 | %expired_sg and delete $expired_sg{$data->{'socket_group_from'}} | 
| 913 | 0 | 0 | 0 | $$rfrom and $peer ne $$rfrom | 
| line | l | !l | condition | 
|---|---|---|---|
| 189 | 0 | 0 | $args{'unused'} ||= 180 | 
| 190 | 0 | 0 | $args{'active'} ||= 30 | 
| 191 | 0 | 0 | $args{'closed'} ||= 1 | 
| 226 | 0 | 0 | $callback ||= sub { return shift(); } | 
| 508 | 0 | 0 | $self->{'from'}{$from} || (next) | 
| 570 | 0 | 0 | $active_pairs{"$idfrom\000$idto"} || 0 | 
| 0 | 0 | $active_pairs{"$idto\000$idfrom"} || 0 | |
| 963 | 0 | 0 | $self->{'sfrom'} && $self->{'sfrom'}{'id'} || 'NO.SFROM' | 
| 0 | 0 | $self->{'sto'} && $self->{'sto'}{'id'} || 'NO.STO' | |
| 1011 | 0 | 0 | $self->{'nathelper'} || (return) | 
| line | l | !l&&r | !l&&!r | condition | 
|---|---|---|---|---|
| 112 | 0 | 0 | 0 | $self->{'calls'}{$callid} ||= $self->create_call($callid) | 
| 188 | 0 | 0 | 0 | $args{'time'} ||= &gettimeofday() | 
| 300 | 0 | 0 | 0 | not $port or $addr eq '0.0.0.0' | 
| 0 | 0 | 0 | not $port or $addr eq '0.0.0.0' or $addr eq '::' | |
| 387 | 0 | 0 | 0 | $cseq_data ||= ($self->{'from'}{$idfrom} = {}) | 
| 402 | 0 | 0 | 0 | $data->{'socket_group_from'} ||= do { DEBUG(10, "new socketgroup with idfrom $idfrom"); return unless 'Net::SIP::NATHelper::SocketGroup'->new($nathelper, $idfrom, $addr, $media) } | 
| 408 | 0 | 0 | 0 | $data->{'socket_groups_to'}{$idto} ||= do { DEBUG(10, "new socketgroup with idto $idto"); return unless 'Net::SIP::NATHelper::SocketGroup'->new($nathelper, $idto, $addr, $media) } | 
| 656 | 0 | 0 | 0 | %{$data->{'socket_groups_to'};} or $data->{'socket_group_from'} | 
| 906 | 0 | 0 | 0 | recv($read_socket, my $buf, 65536, 0) || do { DEBUG(10, "recv data failed: $!"); return } |