| line |
true |
false |
branch |
|
47
|
19 |
592 |
if (exists $params->{'filename'} and defined(my $infile = $params->{'filename'})) { } |
|
|
11 |
581 |
elsif (exists $params->{'filehandle'} and defined(my $fh = $params->{'filehandle'})) { } |
|
|
581 |
0 |
elsif (exists $params->{'string'} and defined $params->{'string'}) { } |
|
49
|
0 |
19 |
unless (open $fh, "<:encoding(UTF-8)", $infile) |
|
57
|
0 |
611 |
unless (defined $contents) |
|
60
|
0 |
611 |
exists $params->{'debug'} && defined $params->{'debug'} ? : |
|
64
|
611 |
0 |
exists $params->{'commentstyle'} && defined $params->{'commentstyle'} ? : |
|
68
|
22 |
589 |
if (exists $params->{'tags'} and defined $params->{'tags'}) { } |
|
69
|
1 |
21 |
if (ref $params->{'tags'} ne "ARRAY") |
|
70
|
0 |
21 |
if (scalar @{$params->{'tags'};} != 2) |
|
77
|
0 |
1971 |
if ($debug > 0) |
|
78
|
0 |
1968 |
if ($tvop eq $coop or $tvop eq $cocl or $tvcl eq $coop or $tvcl eq $cocl) |
|
82
|
1 |
1965 |
if ($tvop =~ /\Q$coop\E/ or $tvop =~ /\Q$cocl\E/ or $tvcl =~ /\Q$coop\E/ or $tvcl =~ /\Q$cocl\E/) |
|
85
|
1 |
1964 |
if ($coop =~ /\Q$tvop\E/ or $coop =~ /\Q$tvcl\E/ or $cocl =~ /\Q$tvop\E/ or $cocl =~ /\Q$tvcl\E/) |
|
91
|
552 |
51 |
exists $params->{'variable-substitutions'} ? : |
|
97
|
18 |
585 |
exists $params->{'remove-comments-in-strings'} && defined $params->{'remove-comments-in-strings'} ? : |
|
109
|
0 |
35 |
if ($ak =~ /(?:\Q$tvop\E)|(?:\Q$tvcl\E)/) |
|
114
|
0 |
603 |
if ($contents =~ /\Q$tvop\E\s*!(:?(:?begin-verbatim-section)|(:?end-verbatim-section))\s*\Q$tvcl\E/) |
|
149
|
595 |
8 |
if ($remove_comments_in_strings == 0) |
|
160
|
419 |
184 |
if ($tc =~ s/\bC\b//i) |
|
163
|
421 |
182 |
if ($tc =~ s/\bCPP\b//i) |
|
167
|
423 |
180 |
if ($tc =~ s/\bshell\b//i) |
|
181
|
411 |
1553 |
if ($cocl =~ /^\s*$/) { } |
|
188
|
0 |
603 |
if ($tc =~ /[a-z]/i) |
|
195
|
0 |
603 |
if ($contents =~ /\Q$tvop\E.+?(?:begin|end)-verbatim-section\s*\Q$tvcl\E/) |
|
197
|
595 |
8 |
if ($remove_comments_in_strings == 0) |
|
210
|
0 |
603 |
if ($debug > 0) |
|
214
|
1 |
602 |
unless (defined $inhash) |