| line |
true |
false |
branch |
|
52
|
12 |
74 |
unless defined $start |
|
101
|
10 |
1205 |
if (my $value = $flat_args->{'trace_file_handle'}) |
|
118
|
0 |
1333 |
if ($current_event) |
|
127
|
725 |
608 |
unless ($handler) |
|
130
|
0 |
1333 |
unless ($handler) |
|
134
|
0 |
1333 |
if (ref $handler ne 'CODE') |
|
146
|
644 |
689 |
if ($retour eq 'ok') |
|
147
|
0 |
644 |
if ($event_type eq 'before lexeme') |
|
157
|
689 |
0 |
if $retour eq 'pause' |
|
188
|
26156 |
205127 |
if ($character =~ /$re/) |
|
190
|
18 |
26138 |
if ($trace_terminals >= 2) |
|
195
|
0 |
18 |
unless say {$trace_file_handle;} "Registering character $char_desc as symbol ${symbol_id}: ", $slg->l0_symbol_display_form($symbol_id) |
|
207
|
5180 |
361 |
if $is_graphic |
|
222
|
0 |
1204 |
unless $flat_args |
|
227
|
0 |
1204 |
unless defined $slg |
|
235
|
0 |
1204 |
if (ref $event_handlers ne 'HASH') |
|
247
|
0 |
1204 |
unless (&blessed($slg) and $slg->isa($slg_class)) |
|
249
|
0 |
0 |
$ref_type ? : |
|
330
|
0 |
1197 |
unless $lua |
|
347
|
0 |
11 |
unless $flat_args |
|
377
|
0 |
1209 |
if ($slr->[5]) |
|
396
|
0 |
549 |
if ($slr->[5]) |
|
429
|
0 |
2 |
if (not defined $input_ref or ref $input_ref ne 'SCALAR') |
|
434
|
0 |
2 |
if (grep {ref $_ ne 'HASH';} @more_args) |
|
442
|
0 |
2 |
if ($length_read != length $input_length) |
|
451
|
0 |
2 |
if ($ambiguity_level != 1) |
|
458
|
0 |
2 |
unless $value_ref |
|
647
|
0 |
84 |
unless defined $symbol_name |
|
657
|
84 |
0 |
if $ok |
|
665
|
0 |
137 |
if (&Scalar::Util::tainted($value)) |
|
673
|
0 |
137 |
unless defined $symbol_name |
|
678
|
127 |
10 |
if (defined $value) { } |
|
692
|
135 |
0 |
if $ok |
|
699
|
0 |
189 |
if ($slr->[5]) |
|
747
|
0 |
116 |
if ($slr->[5]) |
|
783
|
0 |
116 |
unless $ok |
|
791
|
0 |
243 |
if ($slr->[5]) |
|
800
|
0 |
243 |
if (&Scalar::Util::tainted($value)) |
|
833
|
0 |
243 |
unless $ok |
|
841
|
0 |
36 |
if ($slr->[5]) |
|
878
|
1 |
35 |
unless $ok |
|
963
|
1 |
1307 |
if &Scalar::Util::tainted(${$p_string;}) |
|
965
|
0 |
1307 |
if ((my $ref_type = ref $p_string) ne 'SCALAR') |
|
966
|
0 |
0 |
$ref_type ? : |
|
972
|
0 |
1307 |
unless (defined ${$p_string;}) |
|
1024
|
0 |
1352 |
if ($slr->[5]) |
|
1177
|
0 |
8825 |
unless $slr |
|
1178
|
0 |
8825 |
unless $regix |
|
1192
|
2 |
8823 |
unless ($eval_ok) |
|
1222
|
6107 |
7190 |
unless ($cmd) |
|
1227
|
0 |
7190 |
unless $handler |
|
1231
|
0 |
7190 |
unless defined $handler_cmd |
|
1233
|
7190 |
0 |
if ($handler_cmd eq 'ok') |
|
1236
|
0 |
7190 |
if (scalar @resume_args < 1) |
|
1241
|
0 |
0 |
if ($handler_cmd eq 'sig') |
|
1252
|
9 |
6107 |
unless ($eval_ok) |
|
1254
|
0 |
9 |
if ref $eval_error |
|
1291
|
8 |
59 |
unless $set_desc |
|
1310
|
8 |
59 |
unless $set_data |
|
1320
|
59 |
452 |
unless defined $item_data |
|
1327
|
177 |
275 |
if ($dot_position < 0) { } |
|
1356
|
452 |
67 |
unless $token_link_data |
|
1371
|
67 |
0 |
if (defined $predecessor_ahm) |
|
1382
|
67 |
0 |
unless (defined $value) |
|
1400
|
0 |
0 |
unless $Marpa::R3::Internal_R::a->[0] <=> $Marpa::R3::Internal_R::b->[0] or $Marpa::R3::Internal_R::a->[1] <=> $Marpa::R3::Internal_R::b->[1] |
|
1416
|
452 |
237 |
unless $completion_link_data |
|
1427
|
237 |
0 |
if (defined $predecessor_ahm_id) |
|
1451
|
0 |
27 |
unless $Marpa::R3::Internal_R::a->[0] <=> $Marpa::R3::Internal_R::b->[0] or $Marpa::R3::Internal_R::a->[1] <=> $Marpa::R3::Internal_R::b->[1] |
|
1466
|
452 |
8 |
unless $leo_link_data |
|
1493
|
0 |
0 |
unless $Marpa::R3::Internal_R::a->[0] <=> $Marpa::R3::Internal_R::b->[0] or $Marpa::R3::Internal_R::a->[1] <=> $Marpa::R3::Internal_R::b->[1] |
|
1508
|
59 |
8 |
unless defined $leo_item_data |
|
1520
|
6 |
2 |
if (defined $predecessor_symbol_id) |
|
1565
|
0 |
0 |
if ($op_name eq 'lua') |
|
1570
|
0 |
0 |
if ($lua_op_name eq 'callback') { } |
|
1579
|
0 |
0 |
if ($op_name eq 'alternative') |
|
1601
|
20 |
718 |
if $ambiguity_level == 0 |
|
1602
|
0 |
718 |
if ($ambiguity_level != 1) |
|
1608
|
0 |
708 |
unless $value_ref |