| 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 |
9 |
if (not $self->{'set_env'}) { } |
|
277
|
0 |
29 |
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) { } |
|
330
|
2 |
18 |
if ($options->{'no_check_request_method'}) { } |
|
339
|
0 |
20 |
if ($content_type) |
|
343
|
0 |
20 |
if ($options->{'HTTP_COOKIE'}) |
|
347
|
0 |
20 |
if ($remote_addr) |
|
351
|
3 |
17 |
if (defined $options->{'input'}) |
|
353
|
1 |
2 |
if (utf8::is_utf8($self->{'input'})) |
|
362
|
6 |
14 |
if ($comp_test) |
|
363
|
4 |
2 |
if ($verbose) |
|
372
|
20 |
0 |
if ($self->{'command_line_options'}) |
|
381
|
0 |
20 |
if ($options->{'expect_failure'}) { } |
|
388
|
0 |
20 |
if ($options->{'expect_errors'}) { } |
|
389
|
0 |
0 |
if ($options->{'error_output'}) { } |
|
397
|
0 |
20 |
if ($self->{'errors'}) { } |
|
460
|
1 |
14 |
unless ($has_content_type) |
|
468
|
0 |
14 |
unless ($lineok) |
|
471
|
2 |
12 |
if ($self->{'mime_type'}) |
|
475
|
9 |
5 |
if ($expected_charset) |
|
484
|
8 |
1 |
if ($has_charset) |
|
495
|
4 |
16 |
if ($verbose) |
|
505
|
0 |
29 |
if ($line =~ /^$/) |
|
506
|
0 |
0 |
if ($line_number == 0) { } |
|
516
|
1 |
28 |
if (not $line =~ /$line_re/) { } |
|
527
|
4 |
16 |
if ($verbose) |
|
552
|
0 |
20 |
unless ($output) |
|
559
|
15 |
5 |
unless ($self->{'no_check_content'}) |
|
575
|
0 |
5 |
if ($self->{'_use_io_uncompress_gunzip'}) { } |
|
581
|
0 |
0 |
unless ($status) |
|
599
|
4 |
2 |
if ($verbose) |
|
602
|
1 |
5 |
if (not $header =~ /Content-Encoding:.*\bgzip\b/i) { } |
|
612
|
0 |
5 |
if ($@) { } |
|
615
|
0 |
0 |
unless open my $temp, '>:bytes', $failedfile |
|
617
|
0 |
0 |
unless close $temp |
|
628
|
4 |
2 |
if ($verbose) |
|
637
|
0 |
2 |
if ($verbose) |
|
647
|
0 |
1 |
if ($method) { } |
|
668
|
1 |
2 |
unless ($status =~ /^[0-9]{3}$/) |
|
673
|
1 |
1 |
unless ($headers) |
|
706
|
0 |
2 |
if ($ok_method eq 'POST') |
|
753
|
0 |
16 |
if (ref $options ne 'HASH') |
|
759
|
0 |
16 |
unless ($self->{'cgi_executable'}) |
|
762
|
0 |
16 |
if (not $options) { } |
|
764
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
771
|
4 |
12 |
if ($self->{'verbose'}) |
|
774
|
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'}) { } |
|
775
|
0 |
0 |
if ($self->{'mime_type'}) { } |
|
776
|
0 |
0 |
if ($self->{'mime_type'} ne 'text/html') |
|
786
|
2 |
0 |
if ($mime_type) { } |
|
787
|
0 |
2 |
if ($mime_type ne 'text/plain' and $mime_type ne 'application/json') |
|
797
|
0 |
0 |
if ($mime_type) { } |
|
798
|
0 |
0 |
if ($mime_type ne 'image/png') |
|
807
|
0 |
16 |
if ($options->{'png'}) { } |
|
|
0 |
16 |
elsif ($options->{'html'}) { } |
|
808
|
0 |
0 |
if ($options->{'html'} or $options->{'json'}) |
|
813
|
0 |
0 |
if ($options->{'json'}) |
|
826
|
16 |
0 |
if ($output) |
|
828
|
6 |
10 |
if ($self->{'comp_test'}) |
|
832
|
11 |
5 |
if ($ecs) |
|
833
|
10 |
1 |
if ($ecs =~ /utf\-?8/i) { } |
|
834
|
4 |
6 |
if ($verbose) |
|
840
|
0 |
1 |
if ($verbose) |
|
846
|
0 |
1 |
if (not $@) { } |
|
854
|
0 |
16 |
if ($self->{'cache_test'}) |
|
858
|
0 |
16 |
if ($options->{'html'}) |
|
861
|
2 |
14 |
if ($options->{'json'}) |
|
864
|
0 |
16 |
if ($options->{'png'}) |
|
873
|
3 |
17 |
if ($self->{'infile'}) |
|
874
|
0 |
3 |
unless unlink $self->{'infile'} |
|
879
|
0 |
20 |
unless unlink $self->{'outfile'} |
|
880
|
0 |
20 |
unless unlink $self->{'errfile'} |
|
894
|
3 |
17 |
if (defined $self->{'input'}) |
|
896
|
0 |
3 |
unless open my $in, '>:raw', $self->{'infile'} |
|
898
|
0 |
3 |
unless close $in |
|
903
|
0 |
20 |
unless close $out |
|
906
|
0 |
20 |
unless close $err |
|
911
|
20 |
0 |
if (-f $self->{'outfile'}) |
|
912
|
0 |
20 |
unless open my $out, '<', $self->{'outfile'} |
|
916
|
0 |
20 |
unless close $out |
|
919
|
20 |
0 |
if (-f $self->{'errfile'}) |
|
920
|
0 |
20 |
unless open my $err, '<', $self->{'errfile'} |
|
924
|
0 |
20 |
unless close $err |
|
937
|
0 |
0 |
unless ($hvc) |
|
938
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
943
|
0 |
0 |
unless (-x $hvc) |
|
944
|
0 |
0 |
unless ($self->{'no_warn'}) |
|
955
|
0 |
0 |
unless ($html_validator and -x $html_validator) |
|
961
|
0 |
0 |
unless open my $htmltovalidate, '>:encoding(utf8)', $html_temp_file |
|
963
|
0 |
0 |
unless close $htmltovalidate |
|
967
|
0 |
0 |
if (-s $html_validate) |
|
968
|
0 |
0 |
unless open my $in, '<', $html_validate |
|
972
|
0 |
0 |
unless close $in |
|
974
|
0 |
0 |
unless unlink $html_temp_file |
|
975
|
0 |
0 |
if (-f $html_validate) |
|
976
|
0 |
0 |
unless unlink $html_validate |
|
985
|
0 |
2 |
if ($@) |
|
989
|
1 |
1 |
if ($valid) { } |
|
1001
|
0 |
0 |
if ($@) |