| line |
true |
false |
branch |
|
52
|
12 |
74 |
unless defined $start |
|
101
|
10 |
1207 |
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
|
26256 |
205844 |
if ($character =~ /$re/) |
|
190
|
18 |
26238 |
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
|
5200 |
363 |
if $is_graphic |
|
222
|
0 |
1206 |
unless $flat_args |
|
227
|
0 |
1206 |
unless defined $slg |
|
235
|
0 |
1206 |
if (ref $event_handlers ne 'HASH') |
|
247
|
0 |
1206 |
unless (&blessed($slg) and $slg->isa($slg_class)) |
|
249
|
0 |
0 |
$ref_type ? : |
|
330
|
0 |
1199 |
unless $lua |
|
347
|
0 |
11 |
unless $flat_args |
|
377
|
0 |
1211 |
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 |
|
962
|
0 |
131 |
unless defined $line_no |
|
973
|
1 |
1309 |
if &Scalar::Util::tainted(${$p_string;}) |
|
975
|
0 |
1309 |
if ((my $ref_type = ref $p_string) ne 'SCALAR') |
|
976
|
0 |
0 |
$ref_type ? : |
|
982
|
0 |
1309 |
unless (defined ${$p_string;}) |
|
1034
|
0 |
1354 |
if ($slr->[5]) |
|
1187
|
0 |
8845 |
unless $slr |
|
1188
|
0 |
8845 |
unless $regix |
|
1202
|
2 |
8843 |
unless ($eval_ok) |
|
1232
|
6116 |
7212 |
unless ($cmd) |
|
1237
|
0 |
7212 |
unless $handler |
|
1241
|
0 |
7212 |
unless defined $handler_cmd |
|
1243
|
7212 |
0 |
if ($handler_cmd eq 'ok') |
|
1246
|
0 |
7212 |
if (scalar @resume_args < 1) |
|
1251
|
0 |
0 |
if ($handler_cmd eq 'sig') |
|
1262
|
9 |
6116 |
unless ($eval_ok) |
|
1264
|
0 |
9 |
if ref $eval_error |
|
1301
|
8 |
59 |
unless $set_desc |
|
1320
|
8 |
59 |
unless $set_data |
|
1330
|
59 |
452 |
unless defined $item_data |
|
1337
|
177 |
275 |
if ($dot_position < 0) { } |
|
1366
|
452 |
67 |
unless $token_link_data |
|
1381
|
67 |
0 |
if (defined $predecessor_ahm) |
|
1392
|
67 |
0 |
unless (defined $value) |
|
1410
|
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] |
|
1426
|
452 |
237 |
unless $completion_link_data |
|
1437
|
237 |
0 |
if (defined $predecessor_ahm_id) |
|
1461
|
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] |
|
1476
|
452 |
8 |
unless $leo_link_data |
|
1503
|
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] |
|
1518
|
59 |
8 |
unless defined $leo_item_data |
|
1530
|
6 |
2 |
if (defined $predecessor_symbol_id) |
|
1575
|
0 |
0 |
if ($op_name eq 'lua') |
|
1580
|
0 |
0 |
if ($lua_op_name eq 'callback') { } |
|
1589
|
0 |
0 |
if ($op_name eq 'alternative') |
|
1611
|
20 |
719 |
if $ambiguity_level == 0 |
|
1612
|
1 |
718 |
if ($ambiguity_level != 1) |
|
1618
|
0 |
708 |
unless $value_ref |