| line |
true |
false |
branch |
|
130
|
214 |
570 |
if (scalar @{$self->{'OutputBuffers'};} == 0) |
|
132
|
0 |
214 |
unless open $self->{'RootSTDOUT'}, '>&STDOUT' |
|
136
|
0 |
784 |
unless open STDOUT, '>>', \$self->{'OutputBuffers'}[0][1] |
|
149
|
202 |
570 |
if (scalar @{$self->{'OutputBuffers'};} == 0) { } |
|
150
|
0 |
202 |
unless open STDOUT, '>&', $self->{'RootSTDOUT'} |
|
153
|
0 |
570 |
unless open STDOUT, '>>', \$self->{'OutputBuffers'}[0][1] |
|
216
|
90 |
263 |
if $self->{'Defs_RE'} |
|
235
|
4 |
80 |
if ($cmd =~ /^include\s++(?:['"](?[^'"]+)['"]|(?\S+))\s*$/i) { } |
|
|
8 |
72 |
elsif ($cmd =~ /^macro\s++(.*+)$/is) { } |
|
|
4 |
68 |
elsif ($cmd =~ /^immediate\s++(.*+)$/is) { } |
|
|
1 |
67 |
elsif ($cmd =~ /^prefix\s++(\S++)\s++(\S++)\s*+$/i) { } |
|
|
4 |
63 |
elsif ($cmd =~ /^define\s++(.*+)$/i) { } |
|
|
2 |
61 |
elsif ($cmd =~ /^undef\s++(?\S++)\s*+$/i) { } |
|
|
3 |
58 |
elsif ($cmd =~ /^ifdef\s++(?\S++)\s*+$/i) { } |
|
|
0 |
58 |
elsif ($cmd =~ /^ifndef\s++(?\S++)\s*+$/i) { } |
|
|
15 |
43 |
elsif ($cmd =~ /^if\s++(.*+)$/i) { } |
|
|
7 |
36 |
elsif ($cmd =~ /^(elsif|elseif|elif)\s++(.*+)$/) { } |
|
|
18 |
18 |
elsif ($cmd =~ /^else\s*+$/i) { } |
|
|
18 |
0 |
elsif ($cmd =~ /^endif\s*+$/i) { } |
|
258
|
0 |
8 |
if ($self->{'Opts'}{'DEBUG'}) |
|
268
|
0 |
8 |
if ($self->{'Opts'}{'DEBUG'}) { } |
|
269
|
0 |
0 |
if $err |
|
271
|
0 |
8 |
if $err |
|
285
|
0 |
4 |
if ($self->{'Opts'}{'DEBUG'}) |
|
294
|
0 |
4 |
if ($self->{'Opts'}{'DEBUG'}) { } |
|
295
|
0 |
0 |
if $err |
|
297
|
0 |
4 |
if $err |
|
306
|
0 |
4 |
unless ($test =~ /^(?[[:alpha:]][[:alnum:]_]*|[[:alpha:]_][[:alnum:]_]+)\s*+(?.*+)$/i) |
|
315
|
1 |
3 |
unless length $rest |
|
321
|
0 |
2 |
unless $nm =~ /^(?[[:alpha:]][[:alnum:]_]*|[[:alpha:]_][[:alnum:]_]+)$/i |
|
327
|
0 |
3 |
unless $nm =~ /^(?[[:alpha:]][[:alnum:]_]*|[[:alpha:]_][[:alnum:]_]+)$/i |
|
332
|
0 |
0 |
unless $nm =~ /^(?[[:alpha:]][[:alnum:]_]*|[[:alpha:]_][[:alnum:]_]+)$/i |
|
337
|
0 |
15 |
unless ($test =~ /^(?[[:alpha:]][[:alnum:]_]*|[[:alpha:]_][[:alnum:]_]+)\s*+(?.*+)$/i) |
|
348
|
0 |
7 |
unless ($test =~ /^(?[[:alpha:]][[:alnum:]_]*|[[:alpha:]_][[:alnum:]_]+)\s*+(?.*+)$/i) |
|
374
|
0 |
6 |
if ($status == -1) { } |
|
|
0 |
6 |
elsif ($status & 127) { } |
|
|
2 |
4 |
elsif ($status != 0) { } |
|
377
|
0 |
0 |
$status & 128 ? : |
|
389
|
0 |
6 |
unless $cmd |
|
392
|
1 |
5 |
$self->{'Opts'}{'KEEP_GOING'} ? : |
|
418
|
33 |
437 |
$self->{'Opts'}{'DEBUG_LINENOS'} ? : |
|
435
|
8 |
205 |
if ($after =~ /^"/ and $plainMode == 1) { } |
|
441
|
49 |
156 |
if ($after =~ /^=/) { } |
|
|
84 |
72 |
elsif ($after =~ /^:/) { } |
|
|
11 |
61 |
elsif ($after =~ /^#/) { } |
|
|
1 |
60 |
elsif ($after =~ m[^\/]) { } |
|
|
53 |
7 |
elsif ($after =~ /^(?:\s|$)/) { } |
|
|
6 |
1 |
elsif ($after =~ /^!/) { } |
|
|
0 |
1 |
elsif ($after =~ /^"/) { } |
|
471
|
2 |
202 |
if ($plainMode == 1) { } |
|
481
|
0 |
212 |
unless $after |
|
496
|
8 |
204 |
if ($inside =~ /"$/) { } |
|
502
|
49 |
155 |
if ($insetMode == 3) { } |
|
|
84 |
71 |
elsif ($insetMode == 4) { } |
|
|
11 |
60 |
elsif ($insetMode == 5) { } |
|
|
54 |
6 |
elsif ($insetMode == 2) { } |
|
|
6 |
0 |
elsif ($insetMode == 6) { } |
|
529
|
2 |
202 |
if ($self->GetModeOfOB == 1) |
|
562
|
224 |
338 |
if ($withinTag) { } |
|
563
|
212 |
12 |
if ($$contents_ref =~ /^(.*?)\?\>(.*)$/s) |
|
578
|
213 |
125 |
if ($$contents_ref =~ /^(.*?)\<\?(.*)$/s) |
|
582
|
212 |
1 |
if ($withinTag) |
|
588
|
12 |
126 |
if ($withinTag) |
|
594
|
3 |
9 |
if $self->GetModeOfOB == 2 |
|
613
|
0 |
126 |
if ($self->GetModeOfOB == 1) |
|
636
|
23 |
103 |
if ($fname) { } |
|
637
|
0 |
23 |
unless open $f, '<', $fname |
|
638
|
23 |
0 |
if ($fname =~ m[^(.*)[\\\/][^\\\/]+$]) |
|
657
|
23 |
103 |
if ($wdir) |
|
688
|
0 |
92 |
if ($fname) { } |
|
689
|
0 |
0 |
unless open $out_fh, '>', $fname |
|
691
|
0 |
92 |
unless open $out_fh, '>&STDOUT' |
|
694
|
0 |
92 |
unless close $out_fh |
|
744
|
0 |
114 |
$0 =~ /\bperlpp$/ ? : |
|
760
|
2 |
112 |
if ($noexit_on_help) { } |
|
762
|
0 |
2 |
unless $ok |
|
765
|
0 |
2 |
if have('usage') |
|
766
|
2 |
0 |
if have('h') |
|
767
|
0 |
0 |
if have('man') |
|
771
|
0 |
112 |
unless $ok |
|
774
|
0 |
112 |
if have('usage') |
|
775
|
0 |
112 |
if have('h') |
|
776
|
0 |
112 |
if have('man') |
|
789
|
0 |
32 |
unless $k =~ /^(?[[:alpha:]][[:alnum:]_]*|[[:alpha:]_][[:alnum:]_]+)$/i |
|
801
|
0 |
114 |
unless my $self = shift() |
|
804
|
2 |
112 |
unless (_parse_command_line($lrArgv, $self->{'Opts'})) |
|
808
|
2 |
110 |
if ($self->{'Opts'}{'PRINT_VERSION'}) |
|
810
|
2 |
0 |
$3 ? : |
|
812
|
0 |
2 |
if ($self->{'Opts'}{'PRINT_VERSION'} > 1) |
|
841
|
3 |
107 |
if $self->{'Opts'}{'DEBUG_LINENOS'} |
|
858
|
13 |
19 |
if $val eq '' |
|
868
|
0 |
32 |
if $@ |
|
876
|
29 |
81 |
if (%{$self->{'Opts'}{'DEFS'};}) |
|
885
|
13 |
19 |
$@ || !defined($v) ? : |
|
894
|
0 |
5 |
if $@ |
|
903
|
0 |
5 |
unless (defined $val) |
|
905
|
0 |
5 |
if $val eq '' |
|
914
|
5 |
105 |
if ($self->{'Opts'}{'EVAL'}) |
|
925
|
6 |
104 |
if ($self->{'Opts'}{'DEBUG'}) { } |
|
936
|
12 |
92 |
if ($result) { } |