| line |
true |
false |
branch |
|
657
|
0 |
0 |
unless &GetOptions('comments!', \$$self{'Keep_Default'}, 'sync_lines!', \$$self{'Sync_Lines'}, 'protect!', \$$self{'Protect_Default'}, 'depend!', \$$self{'Gen_Depend_List'}, 'delimeter=s', \$$self{'Delimeter'}, 'delimiter=s', \$$self{'Delimeter'}, 'define=s@', $$self{'Defines'}, 'include=s@', $$self{'Include_Directory'}, 'output_filename=s', \$$self{'Output_Filename'}, 'modules=s@', $$self{'Modules'}, 'line_comment=s', \$$self{'Line_Comment'}, 'start_comment=s', \$$self{'Start_Comment'}, 'end_comment=s', \$$self{'End_Comment'}) |
|
706
|
15 |
0 |
if @_ |
|
709
|
14 |
1 |
if @_ |
|
731
|
0 |
15 |
if $$self{'Debug'} & 1 |
|
735
|
0 |
15 |
if (not defined $Text::EP3::filename) { } |
|
737
|
0 |
0 |
if ($#ARGV >= 0) { } |
|
740
|
0 |
0 |
if $#ARGV == 0 |
|
741
|
0 |
0 |
if $#ARGV >= 1 |
|
756
|
0 |
15 |
unless $result |
|
762
|
12 |
3 |
if ($condition ne '') { } |
|
782
|
4 |
10 |
if ($$self{'Sync_Lines'} and $condition_satisfied and not $sync_start_sent) |
|
802
|
1005 |
5 |
if ($condition ne '') |
|
804
|
12 |
993 |
if (/^\s*$$self{'DPAT'}mark\s+$condition_start/) |
|
805
|
0 |
12 |
if 2 & $$self{'Debug'} |
|
809
|
943 |
62 |
unless $condition_satisfied |
|
810
|
12 |
50 |
if (/^\s*$$self{'DPAT'}mark\s+$condition_end/) |
|
811
|
0 |
12 |
if 2 & $$self{'Debug'} |
|
818
|
62 |
5 |
if ($$self{'Protect_Comments'} or not $$self{'Keep_Comments'}) |
|
824
|
0 |
65 |
if ($x eq $$self{'Start_Comment'}) { } |
|
|
0 |
65 |
elsif ($x eq $$self{'End_Comment'}) { } |
|
|
3 |
62 |
elsif ($x eq $$self{'Line_Comment'}) { } |
|
826
|
0 |
0 |
if ($in_comment) { } |
|
837
|
0 |
0 |
if ($in_comment) { } |
|
840
|
0 |
0 |
if ($new_comment_portion eq '') { } |
|
856
|
0 |
3 |
if ($in_comment) { } |
|
869
|
0 |
62 |
if ($in_comment) { } |
|
871
|
0 |
0 |
if ($new_comment_portion eq '') { } |
|
891
|
50 |
17 |
if (/^(\s*)$$self{'DPAT'}\w+/) |
|
904
|
0 |
50 |
if (not $self->can($method)) { } |
|
905
|
0 |
0 |
if ($$self{'In_Perl_Begin'} <= 0) |
|
920
|
2 |
65 |
unless ($$self{'Keep_Comments'}) |
|
922
|
2 |
0 |
if ($original ne $_ and /^\s*$/) { } |
|
927
|
0 |
0 |
unless $_ =~ /\n$/ |
|
930
|
60 |
7 |
if ($$self{'Protect_Comments'} and $$self{'Keep_Comments'}) |
|
941
|
10 |
50 |
if $chomped |
|
945
|
67 |
0 |
if ($$self{'In_Perl_Begin'} <= 0) { } |
|
961
|
51 |
20 |
if (defined $$self{'DPAT'} and $line =~ /^(\s*$$self{'DPAT'}\w+)/) { } |
|
962
|
0 |
51 |
if $$self{'Debug'} & 2 |
|
967
|
6 |
45 |
if ($line =~ /^(\s*$$self{'DPAT'}if[n]*def\s+\w+)/ or /^(\s*$$self{'DPAT'}define\s+\w+)/ or /^(\s*$$self{'DPAT'}macro\s+\w+)/ or /^(\s*$$self{'DPAT'}replace\s+\w+)/) { } |
|
1009
|
9 |
270 |
if (index($_, $key) >= 0) |
|
1011
|
1 |
8 |
if (defined $$self{'Macro_Value'}{$key}) { } |
|
|
8 |
0 |
elsif (defined $$self{'Define_List'}{$key}) { } |
|
|
0 |
0 |
elsif (defined $$self{'Replace_List'}{$key}) { } |
|
1012
|
1 |
0 |
if (/(^|\W)$key\((.*)\)(\W|$)/) |
|
1015
|
0 |
1 |
if $#newvars != $#macvars |
|
1027
|
8 |
0 |
if (s/(^|\W)$key(\W|$)/$1$$self{'Define_List'}{$key}$2/g) |
|
1033
|
0 |
0 |
if (s/$key/$$self{'Replace_List'}{$key}/g) |
|
1105
|
0 |
7 |
if $$self{'Debug'} & 1 |
|
1112
|
0 |
7 |
if ($key eq '') |
|
1117
|
0 |
7 |
if (defined $$self{'Keyline'}{$key}) |
|
1119
|
0 |
0 |
if $$self{'Debug'} & 4 |
|
1124
|
0 |
7 |
if ($#string < 0) |
|
1146
|
7 |
0 |
if ($directive =~ /^\s*$$self{'DPAT'}define/) { } |
|
|
0 |
0 |
elsif ($directive =~ /^\s*$$self{'DPAT'}replace/) { } |
|
1148
|
0 |
7 |
if $$self{'Debug'} & 4 |
|
1152
|
0 |
0 |
if $$self{'Debug'} & 4 |
|
1168
|
0 |
1 |
if $$self{'Debug'} & 1 |
|
1175
|
0 |
1 |
if ($key eq '') |
|
1185
|
1 |
0 |
if ($key =~ /(\w+)\((.*)\)/) { } |
|
1188
|
0 |
1 |
unless ($macro_vars =~ /^[\w+,]*\w+$/) |
|
1215
|
0 |
1 |
if $$self{'Debug'} & 4 |
|
1216
|
0 |
1 |
if $$self{'Debug'} & 255 |
|
1284
|
0 |
4 |
if $$self{'Debug'} & 1 |
|
1291
|
0 |
4 |
if ($file eq '') |
|
1298
|
0 |
4 |
if $$self{'Debug'} & 8 |
|
1300
|
2 |
2 |
if (not defined $condition or $condition =~ /(^$line_pattern|^$start_pattern)/) |
|
1304
|
4 |
0 |
if ($file =~ /"(.*)"/) { } |
|
|
0 |
0 |
elsif ($file =~ /<(.*)>/) { } |
|
1318
|
0 |
4 |
if ($file =~ m[^/]) { } |
|
1319
|
0 |
0 |
if -e $file |
|
1323
|
0 |
4 |
if $$self{'Debug'} & 8 |
|
1325
|
4 |
0 |
if -e "$dir/$file" |
|
1326
|
4 |
0 |
if ($result) |
|
1327
|
0 |
4 |
if $$self{'Debug'} & 8 |
|
1335
|
0 |
4 |
if (not $result) { } |
|
1340
|
0 |
4 |
if $$self{'Gen_Depend_List'} |
|
1341
|
0 |
4 |
if $$self{'Debug'} & 8 |
|
1345
|
3 |
1 |
if $$self{'Sync_Lines'} |
|
1377
|
0 |
3 |
if $$self{'Debug'} & 1 |
|
1384
|
0 |
3 |
unless ($$self{'Ifdef'}) |
|
1388
|
0 |
3 |
if $$self{'Debug'} & 16 |
|
1393
|
0 |
6 |
if (/^\s*$$self{'DPAT'}if/) |
|
1396
|
0 |
0 |
if $$self{'Debug'} & 16 |
|
1399
|
3 |
3 |
if (/^\s*$$self{'DPAT'}endif/) |
|
1401
|
0 |
3 |
if $$self{'Debug'} & 16 |
|
1402
|
0 |
3 |
if $$self{'Debug'} & 16 |
|
1404
|
0 |
3 |
if $initifdef <= $$self{'Ifdef'} |
|
1409
|
0 |
3 |
if $$self{'Debug'} & 16 |
|
1419
|
0 |
1 |
if $$self{'Debug'} & 1 |
|
1433
|
0 |
2 |
if $$self{'Debug'} & 1 |
|
1442
|
2 |
0 |
unless ($directive =~ /^\s*$$self{'DPAT'}el[s]*if/) |
|
1446
|
0 |
2 |
if $$self{'Debug'} & 16 |
|
1447
|
0 |
2 |
if $$self{'Debug'} & 16 |
|
1448
|
0 |
2 |
if $$self{'Debug'} & 16 |
|
1451
|
0 |
2 |
unless (defined $$self{'Keyline'}{$key}) |
|
1456
|
1 |
1 |
if ($directive =~ /^\s*$$self{'DPAT'}ifndef/) |
|
1457
|
0 |
1 |
if $$self{'Debug'} & 16 |
|
1462
|
1 |
1 |
if ($skip) |
|
1467
|
0 |
2 |
if (/^\s*$$self{'DPAT'}if/) |
|
1470
|
0 |
0 |
if $$self{'Debug'} & 16 |
|
1473
|
1 |
1 |
if (/^\s*$$self{'DPAT'}else/) |
|
1475
|
0 |
1 |
if $$self{'Debug'} & 16 |
|
1476
|
0 |
1 |
if $initifdef < $$self{'Ifdef'} |
|
1480
|
0 |
1 |
if (/^\s*$$self{'DPAT'}el[s]*if/) |
|
1482
|
0 |
0 |
if $$self{'Debug'} & 16 |
|
1483
|
0 |
0 |
if $initifdef < $$self{'Ifdef'} |
|
1488
|
0 |
1 |
if (/^\s*$$self{'DPAT'}endif/) |
|
1490
|
0 |
0 |
if $$self{'Debug'} & 16 |
|
1491
|
0 |
0 |
if $$self{'Debug'} & 16 |
|
1493
|
0 |
0 |
if $initifdef <= $$self{'Ifdef'} |
|
1507
|
0 |
1 |
if $$self{'Debug'} & 1 |
|
1509
|
0 |
1 |
if $$self{'Debug'} & 16 |
|
1510
|
0 |
1 |
if ($$self{'Ifdef'} < 0) |
|
1525
|
0 |
4 |
if $$self{'Debug'} & 1 |
|
1534
|
3 |
1 |
unless ($directive =~ /^\s*$$self{'DPAT'}el[s]*if/) |
|
1540
|
0 |
4 |
if $@ |
|
1541
|
0 |
4 |
if $$self{'Debug'} & 16 |
|
1543
|
2 |
2 |
unless ($result) |
|
1549
|
2 |
2 |
if ($skip) |
|
1554
|
0 |
4 |
if (/^\s*$$self{'DPAT'}if/) |
|
1557
|
0 |
0 |
if $$self{'Debug'} & 16 |
|
1560
|
1 |
3 |
if (/^\s*$$self{'DPAT'}else/) |
|
1562
|
0 |
1 |
if $$self{'Debug'} & 16 |
|
1563
|
0 |
1 |
if $initifdef < $$self{'Ifdef'} |
|
1567
|
1 |
2 |
if (/^\s*$$self{'DPAT'}el[s]*if/) |
|
1569
|
0 |
1 |
if $$self{'Debug'} & 16 |
|
1570
|
0 |
1 |
if $initifdef < $$self{'Ifdef'} |
|
1577
|
0 |
2 |
if (/^\s*$$self{'DPAT'}endif/) |
|
1579
|
0 |
0 |
if $$self{'Debug'} & 16 |
|
1580
|
0 |
0 |
if $$self{'Debug'} & 16 |
|
1582
|
0 |
0 |
if $initifdef <= $$self{'Ifdef'} |
|
1610
|
0 |
1 |
if $$self{'Debug'} & 1 |
|
1614
|
1 |
3 |
if ($key =~ /^[0-9]*$/) { } |
|
1628
|
0 |
1 |
if $$self{'Debug'} & 4 |
|
1640
|
0 |
1 |
if $$self{'Debug'} & 1 |
|
1651
|
0 |
1 |
if $@ |
|
1676
|
0 |
1 |
if $$self{'Debug'} & 1 |
|
1685
|
0 |
0 |
if $$self{'Debug'} & 32 |
|
1690
|
3 |
1 |
if (not /^\s*$$self{'DPAT'}perl_end/) { } |
|
1691
|
0 |
3 |
if $$self{'Debug'} & 32 |
|
1702
|
1 |
2 |
if (/^\s*sub\s+(\w+)/) |
|
1705
|
0 |
1 |
if $$self{'Debug'} & 32 |
|
1707
|
0 |
3 |
if (/^\s*$$self{'DPAT'}(\w+)/) |
|
1708
|
0 |
0 |
if $$self{'Debug'} & 32 |
|
1715
|
0 |
0 |
if ($self->can($method_name) or grep /^$method_name$/, @subroutines) |
|
1729
|
0 |
0 |
if $$self{'Debug'} & 32 |
|
1746
|
0 |
1 |
if $$self{'Debug'} & 1 |
|
1748
|
1 |
0 |
if ($$self{'In_Perl_Begin'} > 0) |
|
1751
|
0 |
1 |
if $$self{'Debug'} & 32 |
|
1755
|
0 |
1 |
if ($@) |
|
1758
|
0 |
0 |
if $@ |
|
1831
|
0 |
2 |
if $$self{'Debug'} & 2 |
|
1844
|
0 |
5 |
if $$self{'Debug'} & 2 |
|
1849
|
2 |
3 |
if ($key =~ /on/i) { } |
|
|
2 |
1 |
elsif ($key =~ /off/i) { } |
|
|
0 |
1 |
elsif ($key =~ /PRE/i) { } |
|
|
1 |
0 |
elsif ($key =~ /DEF/i) { } |
|
1853
|
1 |
1 |
if ($directive =~ /comment/) { } |
|
1865
|
1 |
1 |
if ($directive =~ /comment/) { } |
|
1873
|
0 |
0 |
if ($directive =~ /comment/) { } |
|
1881
|
1 |
0 |
if ($directive =~ /comment/) { } |
|
1952
|
1 |
1 |
if (@_) |
|
1976
|
1 |
0 |
@_ ? : |
|
2038
|
11 |
0 |
if (@_) { } |
|
2047
|
11 |
0 |
if ($filename ne 'STDOUT') { } |
|
2048
|
0 |
11 |
unless open $filehandle, ">$filename" |
|
2054
|
0 |
11 |
if ($$self{'Gen_Depend_List'}) { } |