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) |