| line |
true |
false |
branch |
|
45
|
186 |
407 |
if @_ > 1 |
|
46
|
9 |
398 |
if @_ and not ref $_[0] |
|
48
|
398 |
0 |
if @_ |
|
84
|
186 |
0 |
if (UNIVERSAL::isa($header, 'HASH')) |
|
88
|
345 |
699 |
ref $v ? : |
|
95
|
70 |
116 |
$code =~ /^\d/ ? : |
|
98
|
186 |
0 |
defined $text ? : |
|
108
|
0 |
884 |
if (UNIVERSAL::isa($h, 'Net::SIP::HeaderPair')) { } |
|
114
|
0 |
884 |
unless defined $value |
|
115
|
0 |
884 |
if $normalized |
|
123
|
56 |
130 |
if (ref $body) |
|
124
|
56 |
0 |
unless ($self->get_header('content-type')) |
|
126
|
56 |
0 |
if $sub |
|
147
|
73 |
139 |
$data->{'method'} ? : |
|
158
|
0 |
0 |
unless $self->{'header'} |
|
169
|
0 |
0 |
unless $self->{'header'} |
|
219
|
6181 |
0 |
if ($key) { } |
|
223
|
4642 |
40046 |
if $h->{'key'} eq $key |
|
225
|
2041 |
4140 |
if wantarray |
|
226
|
0 |
4140 |
if (@v > 1) |
|
231
|
0 |
0 |
if keys %v == 1 |
|
259
|
9 |
0 |
if ($key) { } |
|
264
|
3 |
56 |
if $h->{'key'} eq $key |
|
266
|
9 |
0 |
if wantarray |
|
267
|
0 |
0 |
if @v > 1 |
|
288
|
0 |
3 |
ref $val ? : |
|
304
|
0 |
315 |
ref $val ? : |
|
336
|
5 |
90 |
ref $val ? : |
|
351
|
0 |
0 |
if (ref $body) |
|
352
|
0 |
0 |
unless ($self->get_header('content-type')) |
|
354
|
0 |
0 |
if $sub |
|
375
|
71 |
0 |
@_ > 1 ? : |
|
378
|
0 |
71 |
ref $sub eq 'CODE' ? : |
|
382
|
626 |
72 |
if $key and $h->{'key'} ne $key |
|
404
|
0 |
328 |
if (defined $cl and $cl != length $body) |
|
409
|
11 |
317 |
if $self->{'as_string'} |
|
416
|
0 |
317 |
if (my $lines = $self->{'lines'}) |
|
418
|
0 |
0 |
unless $lines->[$i] |
|
423
|
0 |
0 |
defined $line && $line == $i ? : |
|
425
|
0 |
0 |
if (@hi == $count) { } |
|
|
0 |
0 |
elsif (@hi) { } |
|
453
|
229 |
88 |
$self->{'method'} ? : |
|
459
|
317 |
0 |
unless defined $cl |
|
474
|
150 |
3 |
if (not $level) { } |
|
475
|
150 |
0 |
if ($self->is_request) { } |
|
477
|
106 |
44 |
$body ? : |
|
480
|
0 |
0 |
$body ? : |
|
505
|
0 |
8278 |
unless ($self->{'header'}) |
|
509
|
5256 |
3022 |
if $self->{'method'} |
|
596
|
0 |
261 |
unless $v =~ /^(\d+)\s*$/ |
|
606
|
5 |
630 |
if ($quote) { } |
|
|
242 |
388 |
elsif ($v =~ /\G(.*?)([\\"<,])/cg) { } |
|
607
|
5 |
0 |
if ($v =~ /\G(.*?)(\\|$quote)/cg) { } |
|
608
|
0 |
5 |
if ($2 eq '\\') { } |
|
620
|
5 |
237 |
if ($2 eq '\\') { } |
|
|
232 |
5 |
elsif ($2 eq ',') { } |
|
626
|
232 |
0 |
unless $quote |
|
630
|
5 |
0 |
$2 eq '<' ? : |
|
650
|
139 |
79 |
if ($header[0] =~ m[^SIP/2.0\s+(\d+)\s+(\S.*?)\s*$]) { } |
|
|
79 |
0 |
elsif ($header[0] =~ m[^(\w+)\s+(\S.*?)\s+SIP/2\.0\s*$]) { } |
|
672
|
0 |
1595 |
unless my($k, $v) = $header[0] =~ /^([^\s:]+)\s*:\s*(.*)/ |
|
683
|
1373 |
222 |
$parse ? : |
|
684
|
58 |
1537 |
if (@v > 1) { } |
|
691
|
80 |
1515 |
if (my $k2c = $key2check->{$nk}) |
|
694
|
1151 |
444 |
if ($once{$nk}) |
|
721
|
0 |
66 |
if $ct and lc $ct ne 'application/sdp' |
|
743
|
0 |
0 |
if $self->{'as_string'} |
|
754
|
514 |
0 |
if $self->{'header'} |