| line |
true |
false |
branch |
|
47
|
15 |
556 |
if (exists $params->{'filename'} and defined(my $infile = $params->{'filename'})) { } |
|
|
7 |
549 |
elsif (exists $params->{'filehandle'} and defined(my $fh = $params->{'filehandle'})) { } |
|
|
549 |
0 |
elsif (exists $params->{'string'} and defined $params->{'string'}) { } |
|
49
|
0 |
15 |
unless (open $fh, "<:encoding(UTF-8)", $infile) |
|
57
|
0 |
571 |
unless (defined $contents) |
|
60
|
0 |
571 |
exists $params->{'debug'} && defined $params->{'debug'} ? : |
|
64
|
571 |
0 |
exists $params->{'commentstyle'} && defined $params->{'commentstyle'} ? : |
|
68
|
1 |
570 |
if (exists $params->{'tags'} and defined $params->{'tags'}) { } |
|
69
|
0 |
1 |
if (ref $params->{'tags'} ne "ARRAY") |
|
70
|
0 |
1 |
if (scalar @{$params->{'tags'};} != 2) |
|
75
|
521 |
50 |
exists $params->{'variable-substitutions'} ? : |
|
81
|
18 |
553 |
exists $params->{'remove-comments-in-strings'} && defined $params->{'remove-comments-in-strings'} ? : |
|
93
|
0 |
11 |
if ($ak =~ /(?:\Q$tvop\E)|(?:\Q$tvcl\E)/) |
|
98
|
0 |
571 |
if ($contents =~ /\Q$tvop\E!(:?(:?begin-verbatim-section)|(:?end-verbatim-section))%*>/) |
|
130
|
563 |
8 |
if ($remove_comments_in_strings == 0) |
|
141
|
432 |
139 |
if ($tc =~ s/\bC\b//i) |
|
144
|
379 |
192 |
if ($tc =~ s/\bCPP\b//i) |
|
148
|
399 |
172 |
if ($tc =~ s/\bshell\b//i) |
|
162
|
391 |
1528 |
if ($cl =~ /^\s*$/) { } |
|
169
|
0 |
571 |
if ($tc =~ /[a-z]/i) |
|
173
|
1 |
570 |
if ($contents =~ /\Q$tvop\E.+?-verbatim-section\s*\Q$tvcl\E/) |
|
175
|
563 |
8 |
if ($remove_comments_in_strings == 0) |
|
188
|
0 |
571 |
if ($debug > 0) |
|
192
|
1 |
570 |
unless (defined $inhash) |