line |
true |
false |
branch |
123
|
0 |
193 |
if defined $line_num_ok and $line_num_ok ne 'line_num_ok' |
136
|
0 |
193 |
unless defined $tok |
139
|
171 |
22 |
if ($class eq 'Keyword') { } |
|
6 |
16 |
elsif ($class eq 'Comment') { } |
|
14 |
2 |
elsif ($class eq 'Identifier') { } |
|
2 |
0 |
elsif ($line_num_ok and $class eq 'Numeric_Constant' and $tok->text =~ /^\d+$/) { } |
141
|
171 |
0 |
if (exists $keywords{$text}) { } |
222
|
0 |
3 |
unless my $funcexp = 'Language::Basic::Expression::Function'->new($token_group, 'defining') |
225
|
0 |
3 |
unless $token_group->eat_if_string('=') |
232
|
0 |
3 |
unless my $exp = 'Language::Basic::Expression::Arithmetic'->new($token_group) |
338
|
0 |
10 |
unless my $lvalue = 'Language::Basic::Expression::Lvalue'->new($token_group) |
341
|
0 |
10 |
if ($lvalue->isa('Language::Basic::Expression::String')) |
347
|
0 |
10 |
unless $token_group->eat_if_string('=') |
348
|
0 |
10 |
unless $$self{'start'} = 'Language::Basic::Expression::Arithmetic::Numeric'->new($token_group) |
351
|
0 |
10 |
unless $token_group->eat_if_string('TO') |
355
|
0 |
10 |
unless $$self{'limit'} = 'Language::Basic::Expression::Arithmetic::Numeric'->new($token_group) |
362
|
2 |
8 |
if ($token_group->eat_if_string('STEP')) { } |
363
|
0 |
2 |
unless $step = 'Language::Basic::Expression::Arithmetic::Numeric'->new($token_group) |
367
|
0 |
8 |
if $token_group->stuff_left |
434
|
0 |
5 |
unless $$self{'expression'} = 'Language::Basic::Expression::Arithmetic'->new($token_group) |
442
|
0 |
7 |
unless ($goto =~ /^\d+$/) |
465
|
0 |
0 |
if ($goto =~ /^\d+$/) { } |
494
|
0 |
5 |
unless $$self{'expression'} = 'Language::Basic::Expression::Arithmetic'->new($token_group) |
503
|
0 |
3 |
unless ($goto =~ /^\d+$/) |
513
|
0 |
0 |
if ($goto =~ /^\d+$/) { } |
539
|
0 |
28 |
unless my $exp = 'Language::Basic::Expression::Logical_Or'->new($token_group) |
542
|
0 |
28 |
unless $token_group->eat_if_string('THEN') |
560
|
0 |
28 |
unless my $then = 'Language::Basic::Statement'->new($t1, 'line_num_ok') |
577
|
8 |
20 |
if (defined $token_group->eat_if_string('ELSE')) { } |
579
|
0 |
8 |
unless $else = 'Language::Basic::Statement'->new($token_group, 'line_num_ok') |
590
|
0 |
8 |
if $token_group->stuff_left |
593
|
0 |
20 |
if $token_group->stuff_left |
620
|
21 |
9 |
if ($$self{'condition'}->evaluate) { } |
639
|
0 |
0 |
if (defined $$self{'else_s'}) |
674
|
0 |
0 |
if ($token_group->lookahead->isa('Language::Basic::Token::String_Constant')) |
679
|
0 |
0 |
unless $token_group->eat_if_string(';') |
685
|
0 |
0 |
unless my $exp = 'Language::Basic::Expression::Lvalue'->new($token_group) |
693
|
0 |
0 |
exists $$self{'to_print'} ? : |
709
|
0 |
0 |
if (@ins != @{$$self{'lvalues'};}) |
730
|
0 |
0 |
if (exists $$self{'to_print'}) |
745
|
0 |
0 |
if ($multi) { } |
769
|
0 |
15 |
unless my $lvalue = 'Language::Basic::Expression::Lvalue'->new($token_group) |
774
|
0 |
15 |
unless $token_group->eat_if_string('=') |
775
|
0 |
15 |
unless $$self{'expression'} = 'Language::Basic::Expression::Arithmetic'->new($token_group) |
814
|
0 |
10 |
unless my $lvalue = 'Language::Basic::Expression::Lvalue'->new($token_group) |
817
|
0 |
10 |
if ($lvalue->variable->isa('Language::Basic::Variable::String')) |
841
|
54 |
6 |
$step > 0 ? : |
842
|
48 |
12 |
unless ($done) |
884
|
0 |
2 |
unless $$self{'expression'} = 'Language::Basic::Expression::Arithmetic'->new($token_group) |
889
|
0 |
2 |
unless defined $tok and $tok->text =~ /^GO(SUB|TO)$/ |
896
|
0 |
6 |
unless my $exp = 'Language::Basic::Expression::Arithmetic::Numeric'->new($token_group) |
908
|
0 |
6 |
if (not $value =~ /^\d+$/ or $value > @{$$self{'gotos'};}) |
913
|
0 |
6 |
unless ($goto =~ /^\d+$/) |
917
|
6 |
0 |
if $type eq 'GOSUB' |
929
|
0 |
0 |
if (grep {not $_ =~ /^\d+$/;} @gotos) |
941
|
0 |
0 |
if ($type eq 'GOSUB') |
950
|
0 |
0 |
if ($type eq 'GOSUB') |
971
|
2 |
78 |
unless ($token_group->stuff_left) |
978
|
0 |
88 |
unless my $exp = 'Language::Basic::Expression::Arithmetic'->new($token_group) |
981
|
73 |
15 |
if ($tok = $token_group->eat_if_class('Separator')) { } |
|
15 |
0 |
elsif (not $token_group->stuff_left) { } |
1004
|
0 |
90 |
if ($$prog{'column'} >= 70 and length $string) |
1014
|
0 |
90 |
if ($endchar eq ',') { } |
|
70 |
20 |
elsif ($endchar eq ';') { } |
1019
|
0 |
0 |
if ($$prog{'column'} >= 56) { } |
1030
|
50 |
20 |
if (ref($exp) =~ /::Numeric$/) |
1052
|
0 |
0 |
if ref($exp) =~ /Numeric$/ |
1053
|
0 |
0 |
if ($endchar eq ',') { } |
|
0 |
0 |
elsif ($endchar eq '') { } |
1058
|
0 |
0 |
if @to_print |
1061
|
0 |
0 |
if (@to_print) { } |
1086
|
0 |
6 |
unless my $exp = 'Language::Basic::Expression::Lvalue'->new($token_group) |
1161
|
0 |
13 |
unless my $gosub = $prog->pop_stack |