| line |
true |
false |
branch |
|
37
|
0 |
0 |
if (@_ and UNIVERSAL::isa($_[0], 'Net::SIP::NATHelper::Base')) { } |
|
69
|
0 |
0 |
unless (read $sock, my $buf, 4) |
|
75
|
0 |
0 |
if ($len > 32768) |
|
79
|
0 |
0 |
unless (read $sock, $buf, $len) |
|
84
|
0 |
0 |
unless (my($cmd, @args) = eval {
do {
@{thaw($buf);}
}
}) |
|
90
|
0 |
0 |
unless (my $cb = $self->{'commands'}{$cmd}) |
|
95
|
0 |
0 |
unless (defined $reply) |
|
130
|
0 |
0 |
unless (@$callbacks) |
|
139
|
0 |
0 |
unless (@$callbacks or $helper->number_of_calls) |
|
152
|
0 |
0 |
if $callbacks->[$i] |
|
158
|
0 |
0 |
unless $rin |
|
159
|
0 |
0 |
unless defined select(my $rout = $rin, undef, undef, $timeout) |
|
163
|
0 |
0 |
if ($rout) |
|
165
|
0 |
0 |
if vec $rout, $i, 1 |
|
170
|
0 |
0 |
if ($now - $last_expire >= 1) |
|
184
|
0 |
0 |
if @expired |
|
197
|
0 |
0 |
unless my($info, $duplicate) = $self->{'helper'}->activate_session(@_) |
|
200
|
0 |
0 |
$duplicate ? : |
|
205
|
0 |
0 |
unless my(@info) = $self->{'helper'}->close_session(@_) |