| line |
true |
false |
branch |
|
87
|
2 |
5 |
if ($type) { } |
|
88
|
1 |
1 |
if ($type =~ m[^text/[\w\-]+$]) { } |
|
|
0 |
1 |
elsif (";$type;" =~ /\;\s*charset=\"?([\w\-]+)\"?\s*\;/) { } |
|
121
|
0 |
0 |
if ($char == 10) { } |
|
|
0 |
0 |
elsif (32 <= $char and $char <= 126 and $char != 37) { } |
|
128
|
0 |
0 |
if $offset == $length |
|
139
|
0 |
0 |
if ($DebugBodyLength and $length > $DebugBodyLength) |
|
148
|
0 |
0 |
if (($index & 3) == 0) |
|
152
|
0 |
0 |
if ($index < $length) { } |
|
155
|
0 |
0 |
32 <= $char && $char <= 126 ? : |
|
207
|
11 |
9 |
if ($Net::STOMP::Client::NoParamsValidation) { } |
|
211
|
8 |
1 |
if @_ |
|
213
|
3 |
15 |
if (defined $option{'body'}) |
|
216
|
1 |
2 |
if $option{'body_reference'} |
|
234
|
4 |
0 |
if @_ == 0 |
|
236
|
0 |
0 |
if (@_ == 1 and defined $value and ref $value eq "" and $value =~ /$new_options{'command'}{'regex'}/) |
|
249
|
0 |
0 |
if @_ == 0 |
|
251
|
0 |
0 |
if (@_ == 1 and ref $value eq "HASH") |
|
263
|
0 |
0 |
if @_ == 0 |
|
265
|
0 |
0 |
if (@_ == 1 and ref $value eq "SCALAR") |
|
281
|
9 |
0 |
if @_ == 0 |
|
283
|
0 |
0 |
if (@_ == 1 and defined $value and ref $value eq "") |
|
308
|
8 |
0 |
if (defined $key and ref $key eq "") |
|
309
|
8 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ == 2) { } |
|
314
|
0 |
0 |
if (defined $value) { } |
|
315
|
0 |
0 |
if (ref $value eq "") |
|
357
|
11 |
33 |
if ($Net::STOMP::Client::NoParamsValidation) { } |
|
360
|
0 |
33 |
unless ref $_[0] eq "SCALAR" |
|
362
|
32 |
1 |
if @_ |
|
370
|
44 |
0 |
unless (exists $state->{'before_len'}) |
|
371
|
9 |
35 |
unless ${$bufref;} =~ /^[\r\n]*[^\r\n]/g |
|
377
|
35 |
0 |
unless (exists $state->{'command_len'}) |
|
380
|
2 |
33 |
if $index < 0 |
|
382
|
3 |
30 |
if (substr(${$bufref;}, $index - 1, 1) eq "\r") { } |
|
392
|
33 |
0 |
unless (exists $state->{'header_len'}) |
|
398
|
2 |
54 |
if $index < 0 |
|
399
|
25 |
29 |
if ($index == $tmp) { } |
|
|
6 |
46 |
elsif ($index == $tmp + 1 and substr(${$bufref;}, $tmp, 1) eq "\r") { } |
|
407
|
8 |
15 |
substr(${$bufref;}, $index - 1, 1) eq "\r" ? : |
|
411
|
12 |
19 |
if ($index == $state->{'header_idx'}) { } |
|
420
|
3 |
16 |
if $tmp =~ /\ncontent-length *: *(\d+) *\r?\n/ |
|
430
|
3 |
28 |
if (exists $state->{'content_length'}) { } |
|
433
|
0 |
3 |
if $buflen < $state->{'body_idx'} + $state->{'content_length'} + 1 |
|
436
|
1 |
2 |
unless $tmp eq "\0" |
|
440
|
4 |
24 |
if $index < 0 |
|
452
|
4 |
9 |
unless $tmp eq "\r" or $tmp eq "\n" |
|
488
|
0 |
11 |
if ($Net::STOMP::Client::NoParamsValidation) { } |
|
491
|
0 |
11 |
unless ref $_[0] eq "SCALAR" |
|
493
|
11 |
0 |
if @_ |
|
497
|
11 |
0 |
unless defined $option{'strict'} |
|
499
|
0 |
11 |
$option{'strict'} ? : |
|
507
|
0 |
11 |
unless $tmp |
|
511
|
0 |
11 |
if ($option{'debug'} =~ /\b(command|all)\b/) |
|
515
|
0 |
11 |
if ($option{'debug'} =~ /\b(header|all)\b/) |
|
519
|
0 |
11 |
if ($option{'debug'} =~ /\b(body|all)\b/) |
|
529
|
0 |
11 |
unless $frame{'command'} =~ /$new_options{'command'}{'regex'}/ |
|
533
|
11 |
0 |
if ($state->{'header_len'}) |
|
536
|
7 |
4 |
if ($option{'version'} ge "1.1") |
|
540
|
4 |
7 |
if ($option{'version'} eq '1.0') { } |
|
|
6 |
1 |
elsif ($option{'version'} eq '1.1') { } |
|
546
|
5 |
0 |
if ($line =~ /^($_HeaderNameRE)\s*:\s*(.*?)\s*$/o) { } |
|
559
|
8 |
0 |
if ($line =~ /^([^\n\:]+):([^\n\:]*)$/) { } |
|
564
|
0 |
0 |
unless $_DecMap1{$1} |
|
565
|
0 |
3 |
unless $_DecMap1{$1} |
|
566
|
0 |
8 |
if $errors |
|
568
|
7 |
1 |
unless exists $frame{'headers'}{$key} |
|
577
|
2 |
0 |
if ($line =~ /^([^\r\n\:]+):([^\r\n\:]*)$/) { } |
|
582
|
0 |
0 |
unless $_DecMap2{$1} |
|
583
|
0 |
0 |
unless $_DecMap2{$1} |
|
584
|
0 |
2 |
if $errors |
|
586
|
2 |
0 |
unless exists $frame{'headers'}{$key} |
|
593
|
11 |
0 |
if ($state->{'body_len'}) |
|
595
|
7 |
0 |
if ($option{'version'} ge "1.1" and $frame{'headers'}) |
|
598
|
1 |
6 |
if ($val) |
|
637
|
0 |
0 |
if ($Net::STOMP::Client::NoParamsValidation) { } |
|
641
|
0 |
0 |
if @_ |
|
644
|
0 |
0 |
unless defined $option{'strict'} |
|
646
|
0 |
0 |
$option{'strict'} ? : |
|
650
|
0 |
0 |
if ($option{'version'} ge '1.1') { } |
|
655
|
0 |
0 |
if ($tmp) { } |
|
667
|
0 |
0 |
if (defined $tmp) { } |
|
670
|
0 |
0 |
unless $tmp eq "" |
|
674
|
0 |
0 |
unless $bodylen == 0 |
|
680
|
0 |
0 |
if ($option{'version'} eq '1.0') { } |
|
|
0 |
0 |
elsif ($option{'version'} eq '1.1') { } |
|
688
|
0 |
0 |
if $key eq "content-length" |
|
697
|
0 |
0 |
if $key eq "content-length" |
|
703
|
0 |
0 |
if defined $conlen |
|
704
|
0 |
0 |
if ($option{'version'} ge "1.1") |
|
711
|
0 |
0 |
if ($option{'debug'} =~ /\b(command|all)\b/) |
|
714
|
0 |
0 |
if ($option{'debug'} =~ /\b(header|all)\b/) |
|
717
|
0 |
0 |
if ($option{'debug'} =~ /\b(body|all)\b/) |
|
749
|
0 |
0 |
unless ($Messaging::Message::VERSION) |
|
751
|
0 |
0 |
if $@ |
|
753
|
0 |
0 |
&_encoding(scalar $self->header('content-type')) ? : |
|
768
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ == 2 and $_[0] eq 'Net::STOMP::Client::Frame') { } |
|
784
|
0 |
0 |
if (defined $content_type) { } |
|
786
|
0 |
0 |
if (&_encoding($content_type)) { } |
|
787
|
0 |
0 |
unless $message->text |
|
790
|
0 |
0 |
if $message->text |
|
795
|
0 |
0 |
if $message->text |