| line |
true |
false |
branch |
|
861
|
402 |
446 |
if $line eq '' |
|
862
|
0 |
446 |
unless $line =~ / [:][:][=] .* [;] \s* \z /msx |
|
871
|
0 |
1518 |
if ($symbol =~ /\W/msx) |
|
879
|
416 |
30 |
if (scalar @rhs) |
|
883
|
208 |
208 |
if (defined $action) |
|
887
|
2 |
414 |
if (defined $ranking_action) |
|
921
|
0 |
0 |
unless say {*STDERR;} $Marpa::PP::Perl::RECOGNIZER->show_progress |
|
924
|
0 |
0 |
if (not defined $token_name) { } |
|
930
|
0 |
0 |
if (defined $length and $length != 1) |
|
960
|
0 |
0 |
if ($arg ~~ \@RECCE_NAMED_ARGUMENTS) |
|
968
|
4 |
12 |
if $$parser{'has_ranking_action'} |
|
1002
|
306 |
637 |
if $PPI_type eq 'PPI::Token::Whitespace' |
|
1003
|
0 |
637 |
if $PPI_type eq 'PPI::Token::Comment' |
|
1007
|
71 |
566 |
if ($PPI_type eq 'PPI::Token::Symbol') |
|
1010
|
0 |
71 |
if (not defined $sigil or $sigil ne '$') |
|
1015
|
0 |
71 |
unless defined $recce->read('DOLLAR', $sigil) |
|
1017
|
0 |
71 |
unless defined $recce->read('WORD', $word) |
|
1022
|
30 |
536 |
if ($PPI_type eq 'PPI::Token::Cast') |
|
1027
|
0 |
30 |
unless (defined $perl_type) |
|
1033
|
0 |
30 |
unless defined $recce->read($perl_type, $cast) |
|
1036
|
0 |
30 |
unless defined $token_found |
|
1040
|
18 |
518 |
if ($PPI_type eq 'PPI::Token::Word') |
|
1043
|
0 |
18 |
unless defined $recce->read($perl_type, $content) |
|
1048
|
123 |
395 |
if ($PPI_type eq 'PPI::Token::Operator') |
|
1051
|
0 |
123 |
unless (defined $perl_type) |
|
1056
|
1 |
122 |
if ($perl_type eq 'PLUS') |
|
1065
|
1 |
1 |
unless $type ~~ $expected_tokens |
|
1067
|
0 |
1 |
unless defined $recce->alternative($type, $content, 1) |
|
1070
|
0 |
1 |
unless defined $token_found |
|
1074
|
0 |
122 |
if ($perl_type eq 'MINUS') |
|
1083
|
0 |
0 |
unless $type ~~ $expected_tokens |
|
1085
|
0 |
0 |
unless defined $recce->alternative($type, $content, 1) |
|
1088
|
0 |
0 |
unless defined $token_found |
|
1092
|
0 |
122 |
unless defined $recce->read($perl_type, $content) |
|
1097
|
282 |
113 |
if ($PPI_type eq 'PPI::Token::Structure') |
|
1101
|
0 |
282 |
unless (defined $perl_type) |
|
1106
|
65 |
217 |
if ($perl_type eq 'RCURLY') |
|
1107
|
65 |
0 |
if (!defined($last_perl_type) || $last_perl_type ne 'SEMI' and 'SEMI' ~~ $expected_tokens) |
|
1113
|
0 |
65 |
unless defined $recce->read('SEMI', ';') |
|
1116
|
0 |
65 |
unless defined $recce->read($perl_type, $content) |
|
1120
|
65 |
152 |
if ($perl_type eq 'LCURLY') |
|
1123
|
58 |
7 |
if (not defined $last_perl_type or $last_perl_type ne 'DO') |
|
1130
|
51 |
72 |
unless $type ~~ $expected_tokens |
|
1132
|
0 |
72 |
unless defined $recce->alternative($type, $content, 1) |
|
1135
|
0 |
65 |
unless defined $token_found |
|
1139
|
0 |
152 |
unless defined $recce->read($perl_type, $content) |
|
1144
|
59 |
54 |
if ($PPI_type eq 'PPI::Token::Number') |
|
1146
|
0 |
59 |
unless defined $recce->read('THING', $content + 0) |
|
1150
|
54 |
0 |
if ($PPI_type eq 'PPI::Token::Quote::Single') |
|
1155
|
0 |
54 |
unless defined $string |
|
1157
|
0 |
54 |
unless defined $recce->read('THING', $string) |
|
1167
|
4 |
12 |
if (wantarray) { } |
|
1184
|
0 |
58 |
unless my $context = $Marpa::PP::Perl::Internal::CONTEXT |
|
1194
|
0 |
0 |
$file_name ? : |