| line |
true |
false |
branch |
|
72
|
0 |
1 |
if exists $self->{'VERSION'} and $self->{'VERSION'} < $Math::Symbolic::Parser::Yapp::Driver::COMPATIBLE |
|
77
|
0 |
1 |
if ref $class |
|
89
|
0 |
0 |
if ($self->{'DEBUG'}) { } |
|
92
|
0 |
0 |
if $@ |
|
104
|
0 |
0 |
unless exists $self->{'USER'} |
|
156
|
0 |
0 |
if $index < 0 and -$index <= @{$self->{'STACK'};} |
|
165
|
0 |
0 |
if @_ |
|
173
|
0 |
0 |
if @_ |
|
202
|
0 |
3 |
unless exists $checklist->{$prm} |
|
204
|
0 |
3 |
unless ref $value eq $checklist->{$prm} |
|
210
|
0 |
0 |
unless exists $outhash->{$_} |
|
224
|
0 |
0 |
if exists do {
"Math::Symbolic::Parser::Yapp::Driver::"
}->{'_DBParse'} |
|
228
|
0 |
0 |
unless open DRV, "<$fname" |
|
231
|
0 |
0 |
if (/^\s*sub\s+_Parse\s*{\s*$/ .. /^\s*}\s*#\s*_Parse\s*$/) |
|
287
|
0 |
0 |
if (exists $actions->{'ACTIONS'}) { } |
|
290
|
0 |
0 |
unless (defined $$token) |
|
300
|
0 |
0 |
exists $actions->{'DEFAULT'} ? : |
|
|
0 |
0 |
exists $actions->{'ACTIONS'}{$$token} ? : |
|
309
|
0 |
0 |
if (defined $act) |
|
312
|
0 |
0 |
if ($act > 0) |
|
318
|
0 |
0 |
if ($$errstatus) |
|
333
|
0 |
0 |
if $$token ne "" |
|
346
|
0 |
0 |
unless $act |
|
352
|
0 |
0 |
if (unpack("A1", $lhs) eq "\@") |
|
353
|
0 |
0 |
unless $lhs =~ /^\@[0-9]+\-([0-9]+)$/ |
|
360
|
0 |
0 |
$$dotpos ? : |
|
363
|
0 |
0 |
@sempar ? : |
|
|
0 |
0 |
$code ? : |
|
369
|
0 |
0 |
if ($$check eq "ACCEPT") |
|
378
|
0 |
0 |
if ($$check eq "ABORT") |
|
391
|
0 |
0 |
unless ($$check eq "ERROR") |
|
419
|
0 |
0 |
unless ($$errstatus) |
|
423
|
0 |
0 |
unless $$errstatus |
|
437
|
0 |
0 |
if ($$errstatus == 3) |
|
439
|
0 |
0 |
if ($$token eq "") |
|
465
|
0 |
0 |
unless (@$stack) |
|
500
|
0 |
1 |
if ref $class |
|
809
|
0 |
0 |
if (exists $Math::Symbolic::Parser::Parser_Functions{$_[1]}) { } |
|
829
|
0 |
0 |
unless $_[1] =~ /^([^(]+)\((.*)\)$/ |
|
836
|
0 |
0 |
unless $_[1] =~ /^([^(]+)\((.*)\)$/ |
|
895
|
0 |
0 |
if (exists $_[0]->YYData->{'ERRMSG'}) |
|
923
|
0 |
1 |
if ($predicates) |
|
940
|
0 |
0 |
unless pos $data->{'INPUT'} < length $data->{'INPUT'} |
|
943
|
0 |
0 |
if (defined $predicates) { } |
|
945
|
0 |
0 |
if ($data->{'STATE'} == 0) { } |
|
946
|
0 |
0 |
$PrivExtFunc ? : |
|
|
0 |
0 |
if ($data->{'INPUT'} =~ /\G($Func)(?=\()/cg) { } |
|
|
0 |
0 |
elsif ($PrivExtFunc ? $data->{'INPUT'} =~ /\G($PrivExtFunc$balanced_parens_re)/cg : 0) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($ExtFunc$balanced_parens_re)/cg) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($predicates)(?=\{)/cg) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($Ident)((?>\'*))(?:\(($Ident(?:,$Ident)*)\))?/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G\(/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G\{/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($Num)/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($Unary)/cog) { } |
|
966
|
0 |
0 |
if (defined $ticks and $n = length $ticks) { } |
|
|
0 |
0 |
elsif (defined $sig) { } |
|
967
|
0 |
0 |
defined $sig ? : |
|
1008
|
0 |
0 |
if ($data->{'INPUT'} =~ /\G\)/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G\}/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($Op)/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G,/cog) { } |
|
1031
|
0 |
0 |
if ($data->{'STATE'} == 0) { } |
|
1032
|
0 |
0 |
$PrivExtFunc ? : |
|
|
0 |
0 |
if ($data->{'INPUT'} =~ /\G($Func)(?=\()/cg) { } |
|
|
0 |
0 |
elsif ($PrivExtFunc ? $data->{'INPUT'} =~ /\G($PrivExtFunc\s*$balanced_parens_re)/cg : 0) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($ExtFunc\s*$balanced_parens_re)/cg) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($Ident)((?>\'*))(?:\(($Ident(?:,$Ident)*)\))?/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G\(/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($Num)/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($Unary)/cog) { } |
|
1049
|
0 |
0 |
if (defined $ticks and $n = length $ticks) { } |
|
|
0 |
0 |
elsif (defined $sig) { } |
|
1050
|
0 |
0 |
defined $sig ? : |
|
1088
|
0 |
0 |
if ($data->{'INPUT'} =~ /\G\)/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G($Op)/cog) { } |
|
|
0 |
0 |
elsif ($data->{'INPUT'} =~ /\G,/cog) { } |