| line |
true |
false |
branch |
|
146
|
0 |
190 |
unless my $self = shift() |
|
168
|
486 |
21 |
if (defined $num and exists $$prog{'lines'}{$num}) { } |
|
185
|
21 |
0 |
defined $line ? : |
|
199
|
0 |
1 |
unless defined $fh |
|
203
|
0 |
2 |
if /^\s*$/ |
|
208
|
0 |
0 |
$old_num > 0 ? : |
|
|
0 |
2 |
unless defined $line_num |
|
215
|
0 |
2 |
if ($line_num <= $old_num) |
|
242
|
0 |
147 |
unless defined $self->_add_line($line) |
|
257
|
0 |
149 |
unless $line =~ s/^\s*(\d+)\s+// |
|
291
|
0 |
21 |
if $$self{'parsed'} |
|
319
|
20 |
1 |
unless $$self{'parsed'} |
|
363
|
233 |
154 |
unless (defined($next = $$self{'next_statement'})) |
|
374
|
21 |
366 |
if $$self{'end_program'} |
|
415
|
255 |
22 |
if (defined $next_line) { } |
|
417
|
0 |
255 |
unless my $line = $self->current_line |
|
507
|
60 |
0 |
if (exists $$self{'for_statements'}{$name}) { } |
|
535
|
0 |
23 |
unless @{$$self{'data'};} |
|
567
|
0 |
0 |
unless $$self{'parsed'} |
|
580
|
0 |
0 |
if (@{$$self{'data'};}) |
|
604
|
0 |
0 |
if $_ eq 'INDENT' |
|
605
|
0 |
0 |
if $_ eq 'UNINDENT' |
|
606
|
0 |
0 |
if $Output_Indent < 2 |
|
611
|
0 |
0 |
s/^A?L\d+:// ? : |
|
627
|
0 |
0 |
if %$n |
|
635
|
0 |
0 |
if $_ eq 'INDENT' |
|
636
|
0 |
0 |
if $_ eq 'UNINDENT' |
|
637
|
0 |
0 |
if $Output_Indent < 0 |
|
650
|
0 |
0 |
if (@{$$self{'data'};}) |
|
672
|
0 |
0 |
if exists $$n{$func_name} |
|
774
|
8 |
149 |
if (defined $oldst) { } |
|
785
|
0 |
149 |
if ($token_group->stuff_left) |