| line |
true |
false |
branch |
|
30
|
29 |
97 |
if ($self->{'verbose'}) |
|
38
|
1 |
3 |
if ($self->{'verbose'}) |
|
40
|
1 |
0 |
if ($switch) { } |
|
57
|
0 |
17 |
if ($^O eq 'MSWin32') { } |
|
66
|
10 |
7 |
if (@command_line_options) { } |
|
80
|
3 |
1 |
if ($switch and not $self->{'_use_io_uncompress_gunzip'}) |
|
82
|
0 |
3 |
if ($@) |
|
84
|
0 |
0 |
if (not $self->{'no_warn'}) |
|
97
|
0 |
0 |
if ($switch) |
|
99
|
0 |
0 |
if ($@) |
|
100
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
112
|
0 |
4 |
if ($@) |
|
114
|
0 |
0 |
unless ($self->{'no_warn'} or $self->{'_warned_unicode_utf8'}) |
|
126
|
2 |
0 |
if ($mime_type) { } |
|
152
|
0 |
0 |
unless defined $last_modified |
|
183
|
0 |
0 |
unless ($headers) |
|
193
|
0 |
0 |
if ($last_modified) { } |
|
211
|
18 |
0 |
if ($request_method) { } |
|
212
|
0 |
18 |
if ($request_method and not $valid_request_method{$request_method}) |
|
213
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
220
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
271
|
20 |
29 |
if (not $self->{'set_env'}) { } |
|
277
|
0 |
49 |
if ($ENV{$name}) |
|
278
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
290
|
0 |
1 |
if ($@) |
|
291
|
0 |
0 |
unless ($self->{'no_warn'} or $self->{'_warned_unicode_utf8'}) |
|
321
|
0 |
20 |
if (defined $query_string) { } |
|
331
|
2 |
18 |
if ($options->{'no_check_request_method'}) { } |
|
340
|
0 |
20 |
if ($content_type) |
|
344
|
0 |
20 |
if ($options->{'HTTP_COOKIE'}) |
|
348
|
0 |
20 |
if ($remote_addr) |
|
352
|
3 |
17 |
if (defined $options->{'input'}) |
|
354
|
1 |
2 |
if (utf8::is_utf8($self->{'input'})) |
|
357
|
0 |
3 |
if ($self->{'bad_content_length'}) { } |
|
368
|
6 |
14 |
if ($comp_test) |
|
369
|
4 |
2 |
if ($verbose) |
|
378
|
20 |
0 |
if ($self->{'command_line_options'}) |
|
387
|
0 |
20 |
if ($options->{'expect_failure'}) { } |
|
394
|
0 |
20 |
if ($options->{'expect_errors'}) { } |
|
395
|
0 |
0 |
if ($options->{'error_output'}) { } |
|
403
|
0 |
20 |
if ($self->{'errors'}) { } |
|
466
|
1 |
14 |
unless ($has_content_type) |
|
474
|
0 |
14 |
unless ($lineok) |
|
477
|
2 |
12 |
if ($self->{'mime_type'}) |
|
481
|
9 |
5 |
if ($expected_charset) |
|
490
|
8 |
1 |
if ($has_charset) |
|
501
|
4 |
16 |
if ($verbose) |
|
511
|
0 |
29 |
if ($line =~ /^$/) |
|
512
|
0 |
0 |
if ($line_number == 0) { } |
|
522
|
1 |
28 |
if (not $line =~ /$line_re/) { } |
|
533
|
4 |
16 |
if ($verbose) |
|
558
|
0 |
20 |
unless ($output) |
|
565
|
15 |
5 |
unless ($self->{'no_check_content'}) |
|
581
|
0 |
5 |
if ($self->{'_use_io_uncompress_gunzip'}) { } |
|
587
|
0 |
0 |
unless ($status) |
|
605
|
4 |
2 |
if ($verbose) |
|
608
|
1 |
5 |
if (not $header =~ /Content-Encoding:.*\bgzip\b/i) { } |
|
618
|
0 |
5 |
if ($@) { } |
|
621
|
0 |
0 |
unless open my $temp, '>:bytes', $failedfile |
|
623
|
0 |
0 |
unless close $temp |
|
634
|
4 |
2 |
if ($verbose) |
|
643
|
0 |
2 |
if ($verbose) |
|
653
|
0 |
1 |
if ($method) { } |
|
674
|
1 |
2 |
unless ($status =~ /^[0-9]{3}$/) |
|
679
|
1 |
1 |
unless ($headers) |
|
704
|
1 |
0 |
if ($headers->{'allow'}) |
|
713
|
0 |
2 |
if ($ok_method eq 'POST') |
|
739
|
0 |
0 |
unless ($options) |
|
744
|
0 |
0 |
if ($options->{'REQUEST_METHOD'} and $options->{'REQUEST_METHOD'} ne 'POST') |
|
746
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
751
|
0 |
0 |
unless ($options->{'CONTENT_TYPE'}) |
|
754
|
0 |
0 |
unless ($options->{'input'}) |
|
801
|
0 |
16 |
if (ref $options ne 'HASH') |
|
807
|
0 |
16 |
unless ($self->{'cgi_executable'}) |
|
810
|
0 |
16 |
if (not $options) { } |
|
812
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
819
|
4 |
12 |
if ($self->{'verbose'}) |
|
822
|
0 |
16 |
if ($options->{'html'} and not $self->{'no_warn'}) { } |
|
|
2 |
14 |
elsif ($options->{'json'} and not $self->{'no_warn'}) { } |
|
|
0 |
28 |
elsif ($options->{'png'} and not $self->{'no_warn'}) { } |
|
823
|
0 |
0 |
if ($self->{'mime_type'}) { } |
|
824
|
0 |
0 |
if ($self->{'mime_type'} ne 'text/html') |
|
834
|
2 |
0 |
if ($mime_type) { } |
|
835
|
0 |
2 |
if ($mime_type ne 'text/plain' and $mime_type ne 'application/json') |
|
845
|
0 |
0 |
if ($mime_type) { } |
|
846
|
0 |
0 |
if ($mime_type ne 'image/png') |
|
855
|
0 |
16 |
if ($options->{'png'}) { } |
|
|
0 |
16 |
elsif ($options->{'html'}) { } |
|
856
|
0 |
0 |
if ($options->{'html'} or $options->{'json'}) |
|
861
|
0 |
0 |
if ($options->{'json'}) |
|
874
|
16 |
0 |
if ($output) |
|
876
|
6 |
10 |
if ($self->{'comp_test'}) |
|
880
|
11 |
5 |
if ($ecs) |
|
881
|
10 |
1 |
if ($ecs =~ /utf\-?8/i) { } |
|
882
|
4 |
6 |
if ($verbose) |
|
888
|
0 |
1 |
if ($verbose) |
|
894
|
0 |
1 |
if (not $@) { } |
|
902
|
0 |
16 |
if ($self->{'cache_test'}) |
|
906
|
0 |
16 |
if ($options->{'html'}) |
|
909
|
2 |
14 |
if ($options->{'json'}) |
|
912
|
0 |
16 |
if ($options->{'png'}) |
|
921
|
3 |
17 |
if ($self->{'infile'}) |
|
922
|
0 |
3 |
unless unlink $self->{'infile'} |
|
927
|
0 |
20 |
unless unlink $self->{'outfile'} |
|
928
|
0 |
20 |
unless unlink $self->{'errfile'} |
|
942
|
3 |
17 |
if (defined $self->{'input'}) |
|
944
|
0 |
3 |
unless open my $in, '>:raw', $self->{'infile'} |
|
946
|
0 |
3 |
unless close $in |
|
951
|
0 |
20 |
unless close $out |
|
954
|
0 |
20 |
unless close $err |
|
959
|
20 |
0 |
if (-f $self->{'outfile'}) |
|
960
|
0 |
20 |
unless open my $out, '<', $self->{'outfile'} |
|
964
|
0 |
20 |
unless close $out |
|
967
|
20 |
0 |
if (-f $self->{'errfile'}) |
|
968
|
0 |
20 |
unless open my $err, '<', $self->{'errfile'} |
|
972
|
0 |
20 |
unless close $err |
|
985
|
0 |
0 |
unless ($hvc) |
|
986
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
991
|
0 |
0 |
unless (-x $hvc) |
|
992
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
1003
|
0 |
0 |
unless ($html_validator and -x $html_validator) |
|
1009
|
0 |
0 |
unless open my $htmltovalidate, '>:encoding(utf8)', $html_temp_file |
|
1011
|
0 |
0 |
unless close $htmltovalidate |
|
1015
|
0 |
0 |
if (-s $html_validate) |
|
1016
|
0 |
0 |
unless open my $in, '<', $html_validate |
|
1020
|
0 |
0 |
unless close $in |
|
1022
|
0 |
0 |
unless unlink $html_temp_file |
|
1023
|
0 |
0 |
if (-f $html_validate) |
|
1024
|
0 |
0 |
unless unlink $html_validate |
|
1033
|
0 |
2 |
if ($@) |
|
1037
|
1 |
1 |
if ($valid) { } |
|
1049
|
0 |
0 |
if ($@) |