line |
true |
false |
branch |
88
|
0 |
396 |
if $self->isa("Language::Basic::Expression::$_") |
95
|
132 |
110 |
if ($subexp->isa("Language::Basic::$_")) |
100
|
0 |
132 |
unless (defined $type) |
211
|
0 |
280 |
if (defined $maybe_boolean and $maybe_boolean ne 'maybe_boolean') |
217
|
2 |
278 |
if ($exp->isa('Language::Basic::Expression::Boolean')) |
218
|
2 |
0 |
if ($maybe_boolean) { } |
231
|
0 |
11 |
if ($exp->isa('Language::Basic::Expression::Boolean')) |
239
|
268 |
10 |
unless @ops |
266
|
28 |
0 |
if ($op eq '+') { } |
282
|
0 |
0 |
if ($op eq '+') { } |
305
|
7 |
0 |
if ($op eq '+') { } |
344
|
0 |
291 |
if (defined $maybe_boolean and $maybe_boolean ne 'maybe_boolean') |
350
|
2 |
289 |
if ($exp->isa('Language::Basic::Expression::Boolean')) |
351
|
2 |
0 |
if ($maybe_boolean) { } |
364
|
0 |
7 |
if ($exp->isa('Language::Basic::Expression::Boolean')) |
373
|
284 |
5 |
unless @ops |
394
|
8 |
2 |
if ($op eq '*') { } |
451
|
0 |
298 |
if (defined $maybe_boolean and $maybe_boolean ne 'maybe_boolean') |
456
|
6 |
292 |
if defined $token_group->eat_if_string('-') |
466
|
8 |
290 |
if (defined $token_group->eat_if_class('Left_Paren')) { } |
|
12 |
278 |
elsif (defined($try = 'Language::Basic::Expression::Function'->new($token_group))) { } |
|
42 |
236 |
elsif (defined($try = 'Language::Basic::Expression::Lvalue'->new($token_group))) { } |
|
236 |
0 |
elsif (defined($try = 'Language::Basic::Expression::Constant'->new($token_group))) { } |
471
|
0 |
8 |
unless defined $token_group->eat_if_class('Right_Paren') |
474
|
0 |
8 |
if ($try->isa('Language::Basic::Expression::Boolean') and not $maybe_boolean) |
498
|
0 |
0 |
unless my $tok = $token_group->lookahead |
506
|
12 |
286 |
if ($$self{'nested'} or $$self{'minus'}) { } |
522
|
10 |
6 |
if $$self{'minus'} |
528
|
0 |
0 |
$$self{'minus'} ? : |
531
|
0 |
0 |
if ($$self{'nested'}) |
570
|
221 |
38 |
if (defined($try = 'Language::Basic::Expression::Constant::Numeric'->new($token_group))) { } |
|
38 |
0 |
elsif (defined($try = 'Language::Basic::Expression::Constant::String'->new($token_group))) { } |
593
|
221 |
38 |
if (defined(my $tok = $token_group->eat_if_class('Numeric_Constant'))) { } |
614
|
38 |
0 |
if (defined(my $tok = $token_group->eat_if_class('String_Constant'))) { } |
677
|
236 |
90 |
unless defined(my $tok = $token_group->eat_if_class('Identifier')) |
685
|
13 |
77 |
if (defined(my $arglist = 'Language::Basic::Expression::Arglist'->new($token_group))) |
718
|
54 |
312 |
if (defined(my $arglist = $$self{'arglist'})) |
731
|
0 |
0 |
if (defined $$self{'arglist'}) |
781
|
236 |
57 |
unless $tok->isa('Language::Basic::Token::Identifier') |
790
|
3 |
54 |
if ($defining) { } |
793
|
0 |
3 |
unless $name =~ /^FN/ |
796
|
42 |
12 |
unless $func = &Language::Basic::Function::lookup($name) |
809
|
3 |
12 |
if ($defining) { } |
811
|
0 |
3 |
unless defined $token_group->eat_if_class('Left_Paren') |
818
|
0 |
3 |
unless defined $token_group->eat_if_class('Right_Paren') |
825
|
0 |
12 |
unless my $arglist = 'Language::Basic::Expression::Arglist'->new($token_group) |
855
|
0 |
0 |
if ($ret =~ /(fun|bas)$/) |
885
|
77 |
25 |
unless defined $token_group->eat_if_class('Left_Paren') |
896
|
0 |
25 |
unless defined $token_group->eat_if_class('Right_Paren') |
898
|
0 |
25 |
unless (@args) |
952
|
0 |
36 |
if (defined $maybe_arithmetic and $maybe_arithmetic ne 'maybe_arithmetic') |
958
|
6 |
30 |
unless ($exp->isa('Language::Basic::Expression::Boolean')) |
959
|
6 |
0 |
if ($maybe_arithmetic) { } |
970
|
0 |
6 |
unless ($exp->isa('Language::Basic::Expression::Boolean')) |
977
|
24 |
6 |
if @exps == 1 |
1026
|
0 |
42 |
if (defined $maybe_arithmetic and $maybe_arithmetic ne 'maybe_arithmetic') |
1032
|
6 |
36 |
unless ($exp->isa('Language::Basic::Expression::Boolean')) |
1033
|
6 |
0 |
if ($maybe_arithmetic) { } |
1044
|
0 |
6 |
unless ($exp->isa('Language::Basic::Expression::Boolean')) |
1051
|
30 |
6 |
if @exps == 1 |
1113
|
0 |
48 |
if (defined $maybe_arithmetic and $maybe_arithmetic ne 'maybe_arithmetic') |
1120
|
0 |
48 |
unless my $e = 'Language::Basic::Expression::Arithmetic'->new($token_group, 'maybe_boolean') |
1127
|
2 |
46 |
if ($e->isa('Language::Basic::Expression::Boolean')) |
1135
|
6 |
40 |
unless (defined($tok = $token_group->eat_if_class('Relational_Operator'))) |
1137
|
6 |
0 |
if ($maybe_arithmetic) { } |
1147
|
0 |
40 |
unless my $e2 = 'Language::Basic::Expression::Arithmetic'->new($token_group) |
1168
|
0 |
40 |
$e->isa('Language::Basic::Expression::String') ? : |
1170
|
0 |
40 |
unless my $perlop = $$trans{$op} |
1187
|
36 |
2 |
if (not $exp->isa('Language::Basic::Expression::Boolean')) { } |
1203
|
4 |
34 |
if $$self{'not'} |
1215
|
0 |
0 |
if (not $exp->isa('Language::Basic::Expression::Boolean')) { } |
1225
|
0 |
0 |
if ($$self{'not'}) |
1227
|
0 |
0 |
unless $ret =~ /^\(.*\)$/ |