| line |
true |
false |
branch |
|
47
|
19 |
609 |
if (exists $params->{'filename'} and defined(my $infile = $params->{'filename'})) { } |
|
|
11 |
598 |
elsif (exists $params->{'filehandle'} and defined(my $fh = $params->{'filehandle'})) { } |
|
|
598 |
0 |
elsif (exists $params->{'string'} and defined $params->{'string'}) { } |
|
49
|
0 |
19 |
unless (open $fh, "<:encoding(UTF-8)", $infile) |
|
57
|
0 |
628 |
unless (defined $contents) |
|
60
|
0 |
628 |
exists $params->{'debug'} && defined $params->{'debug'} ? : |
|
64
|
628 |
0 |
exists $params->{'commentstyle'} && defined $params->{'commentstyle'} ? : |
|
68
|
22 |
606 |
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 |
2013 |
if ($debug > 0) |
|
78
|
0 |
2010 |
if ($tvop eq $coop or $tvop eq $cocl or $tvcl eq $coop or $tvcl eq $cocl) |
|
82
|
1 |
2007 |
if ($tvop =~ /\Q$coop\E/ or $tvop =~ /\Q$cocl\E/ or $tvcl =~ /\Q$coop\E/ or $tvcl =~ /\Q$cocl\E/) |
|
85
|
1 |
2006 |
if ($coop =~ /\Q$tvop\E/ or $coop =~ /\Q$tvcl\E/ or $cocl =~ /\Q$tvop\E/ or $cocl =~ /\Q$tvcl\E/) |
|
91
|
569 |
51 |
exists $params->{'variable-substitutions'} ? : |
|
97
|
18 |
602 |
exists $params->{'remove-comments-in-strings'} && defined $params->{'remove-comments-in-strings'} ? : |
|
109
|
0 |
35 |
if ($ak =~ /(?:\Q$tvop\E)|(?:\Q$tvcl\E)/) |
|
121
|
0 |
620 |
if ($contents =~ /\Q$tvop\E\s*!(:?(:?begin-verbatim-section)|(:?end-verbatim-section))\s*\Q$tvcl\E/) |
|
153
|
612 |
8 |
if ($remove_comments_in_strings == 0) |
|
164
|
474 |
146 |
if ($tc =~ s/\bC\b//i) |
|
167
|
471 |
149 |
if ($tc =~ s/\bCPP\b//i) |
|
171
|
459 |
161 |
if ($tc =~ s/\bshell\b//i) |
|
185
|
357 |
1649 |
if ($cocl =~ /^\s*$/) { } |
|
192
|
0 |
620 |
if ($tc =~ /[a-z]/i) |
|
196
|
1 |
619 |
if ($contents =~ /\Q$tvop\E.+?-verbatim-section\s*\Q$tvcl\E/) |
|
198
|
612 |
8 |
if ($remove_comments_in_strings == 0) |
|
211
|
0 |
620 |
if ($debug > 0) |
|
215
|
1 |
619 |
unless (defined $inhash) |