Branch Coverage

blib/lib/Net/SIP/Endpoint/Context.pm
Criterion Covered Total %
branch 63 104 60.5


line true false branch
64 0 51 @_ == 1 ? :
73 16 35 $self->{'incoming'} ? :
75 0 51 if (my $tag = $param->{'tag'}) { }
114 0 0 $self->{'incoming'} ? :
133 0 6 unless my(@trans) = @{$self->{'_transactions'};}
134 0 6 if (my $pkt = $filter{'request'})
135 0 0 unless @trans = grep({$pkt == $_->{'request'};} @trans)
137 6 0 if (my $method = $filter{'method'})
138 0 6 unless @trans = grep({$method eq $_->{'request'}->method;} @trans)
160 46 63 if (ref $method) { }
176 0 63 $self->{'incoming'} ? :
177 63 0 unless ($uri)
181 8 55 if $uri =~ /<(\S+)>$/
196 0 63 $self->{'contact'} ? :
204 0 109 if $self->{'route'}
206 0 0 if ($rsp40x and $self->{'auth'} and $request->authorize($rsp40x, $self->{'auth'}))
251 45 0 unless $error
256 0 0 if ($tr->{'tid'} eq $tid) { }
258 0 0 if (my $cb = $tr->{'callback'})
292 137 64 if (not $tr and $t->{'tid'} eq $tid and $method eq $t->{'request'}->method) { }
298 2 137 unless ($tr)
310 0 137 unless ($leg->check_via($response))
324 9 128 if ($method eq 'INVITE' and $code >= 300)
332 66 71 if ($code =~ /^1\d\d/)
337 66 0 if ($method eq 'INVITE')
344 3 68 if ($code == 401 or $code == 407)
347 3 0 if ($auth and $r->authorize($response, $auth)) { }
367 33 35 if ($method eq 'CANCEL' or $method eq 'BYE')
372 27 6 if $method eq 'BYE'
377 0 0 if ($self->{'method'} ne 'INVITE' and $code >= 200 && $code < 300 || $code >= 400)
382 28 7 if ($code =~ /^2\d\d/) { }
0 7 elsif ($code == 300 or $code == 301) { }
0 7 elsif ($code == 302) { }
0 7 elsif ($code == 305) { }
385 28 0 if ($method eq 'INVITE') { }
393 0 28 if (not $self->{'remote_contact'} and my(@route) = $response->get_header('record-route'))
400 28 0 if (my $contact = $response->get_header('contact'))
401 0 28 if $contact =~ /<(\w+:[^>\s]+)>/
411 28 0 unless $self->{'incoming'}
437 0 0 if $contact =~ /<(\w+:[^>\s]+)>/
478 33 18 defined $self->{'_cseq_incoming'} ? :
479 0 51 if (defined $self->{'_cseq_incoming'} and $cseq_num < $self->{'_cseq_incoming'})
488 33 18 if (my $trans = $self->{'_last_transreq'}) { }
490 0 33 if ($last_cseq eq $cseq)
501 19 32 if ($method eq 'ACK' or $method eq 'CANCEL') { }
503 0 19 if (defined $self->{'_cseq_incoming'} and $cseq_num != $self->{'_cseq_incoming'})
510 0 32 if (defined $self->{'_cseq_incoming'} and $cseq_num == $self->{'_cseq_incoming'})
526 0 18 if ($ctx_is_new and $method eq 'INVITE' and my(@route) = $request->get_header('record-route'))
536 19 32 unless ($param->{'tag'})
544 16 35 if ($method eq 'BYE' or $method eq 'CANCEL')
553 3 13 if ($method eq 'CANCEL')
567 19 16 if ($method eq 'INVITE')