| line |
true |
false |
branch |
|
183
|
0 |
0 |
unless $_dev_mode |
|
187
|
0 |
0 |
unless ($_debug_log_fh) |
|
189
|
0 |
0 |
unless open $_debug_log_fh, ">", $_debug_log_filename |
|
199
|
0 |
0 |
$caller[5] ? : |
|
|
0 |
0 |
defined $caller[5] ? : |
|
|
0 |
0 |
$caller[4] ? : |
|
|
0 |
0 |
$caller[7] ? : |
|
|
0 |
0 |
$caller[7] ? : |
|
221
|
0 |
0 |
unless $key =~ s/^_
|
|
222
|
0 |
0 |
unless *$glob{"ARRAY"} and scalar @{*$glob{"ARRAY"};} |
|
235
|
0 |
0 |
if ($real_path =~ /^\(eval \d+\)/) |
|
238
|
0 |
0 |
if ($eval_map_entry and $eval_map_entry->{'path'}) |
|
263
|
0 |
0 |
if index($file_id, "Camelcadedb.pm") != -1 or exists $_file_name_sent{$file_id} |
|
270
|
0 |
0 |
if exists $loaded_files_map->{$file_id} |
|
275
|
0 |
0 |
if (scalar @files_to_add + scalar(@files_to_remove)) |
|
295
|
0 |
0 |
if ($breakpoint->{'suspend'}) { } |
|
322
|
0 |
0 |
if $_dev_mode |
|
326
|
0 |
0 |
unless defined $caller[2] |
|
327
|
0 |
0 |
if $_dev_mode |
|
335
|
0 |
0 |
if $_dev_mode |
|
340
|
0 |
0 |
$frame->{'is_use_block'} ? : |
|
|
0 |
0 |
if $_dev_mode |
|
371
|
0 |
0 |
if $_dev_mode |
|
381
|
0 |
0 |
if $_source_been_sent{$file_id} |
|
393
|
0 |
0 |
if $_dev_mode |
|
411
|
0 |
0 |
if ($key =~ /^\*(.+?)(?:\{($glob_slots)\})?$/) { } |
|
416
|
0 |
0 |
if ($slot) { } |
|
425
|
0 |
0 |
if $_dev_mode |
|
431
|
0 |
0 |
if ($source_data) { } |
|
435
|
0 |
0 |
if ($reftype eq 'ARRAY' and $#$source_data >= $offset) { } |
|
|
0 |
0 |
elsif ($reftype eq 'HASH') { } |
|
|
0 |
0 |
elsif ($reftype eq 'REF') { } |
|
|
0 |
0 |
elsif ($reftype eq 'GLOB') { } |
|
450
|
0 |
0 |
if ($#keys >= $offset) |
|
472
|
0 |
0 |
unless $reference |
|
476
|
0 |
0 |
if ($glob_slot eq "HASH" and $key =~ /^\*(::)*(main::)*(::)*DB(::)?$/) |
|
488
|
0 |
0 |
if $_dev_mode |
|
494
|
0 |
0 |
if $_dev_mode |
|
519
|
0 |
2 |
unless $value |
|
521
|
0 |
2 |
if (utf8::is_utf8($value)) { } |
|
|
0 |
2 |
elsif ($value =~ /[\x80-\xFF]/) { } |
|
537
|
0 |
0 |
unless $value |
|
539
|
0 |
0 |
if ($_script_charset ne 'utf8') { } |
|
563
|
0 |
1 |
$ref && &Scalar::Util::blessed($value) ? : |
|
572
|
0 |
1 |
if (not $reftype) { } |
|
|
0 |
1 |
elsif ($reftype eq 'SCALAR') { } |
|
|
1 |
0 |
elsif ($reftype eq 'REF') { } |
|
|
0 |
0 |
elsif ($reftype eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($reftype eq 'HASH') { } |
|
|
0 |
0 |
elsif ($reftype eq 'GLOB') { } |
|
576
|
0 |
0 |
defined $value && utf8::is_utf8($value) ? : |
|
577
|
0 |
0 |
defined $value ? : |
|
583
|
0 |
0 |
defined $$value && utf8::is_utf8($$value) ? : |
|
584
|
0 |
0 |
defined $$value ? : |
|
599
|
0 |
0 |
$size ? : |
|
609
|
0 |
0 |
$size ? : |
|
619
|
0 |
0 |
$size ? : |
|
626
|
0 |
14 |
$char_code < 32 ? : |
|
629
|
1 |
0 |
if ($reftype) |
|
634
|
0 |
1 |
if ($ref) |
|
637
|
0 |
0 |
if (UNIVERSAL::isa($key, $renderer->[0])) |
|
641
|
0 |
0 |
if ($@) |
|
648
|
0 |
0 |
unless ($got_renderer) |
|
650
|
0 |
0 |
if ($rendered eq $type) |
|
661
|
0 |
8 |
$char_code < 32 ? : |
|
665
|
0 |
14 |
$char_code < 32 ? : |
|
682
|
0 |
1 |
if (defined $rendered) |
|
685
|
0 |
0 |
$char_code < 32 ? : |
|
691
|
0 |
1 |
if $layers |
|
692
|
0 |
1 |
if defined $fileno |
|
693
|
0 |
1 |
if $tied |
|
703
|
0 |
0 |
if $input_layers and @$input_layers |
|
706
|
0 |
0 |
if $output_layers and @$output_layers |
|
708
|
0 |
0 |
scalar keys %result ? : |
|
751
|
0 |
0 |
if $_dev_mode |
|
763
|
0 |
0 |
unless ($coder) |
|
797
|
0 |
0 |
unless defined $filename |
|
799
|
0 |
0 |
if ($package and $package ne "DB") |
|
801
|
0 |
0 |
if (@$frames and $subroutine ne "(eval)") |
|
808
|
0 |
0 |
unless ($@) |
|
815
|
0 |
0 |
unless ($@) |
|
820
|
0 |
0 |
if scalar @$frames |
|
845
|
0 |
0 |
if (ref $stack_frame->{'subname'}) |
|
877
|
0 |
0 |
if $_dev_mode |
|
879
|
0 |
0 |
if ($command eq 'q') { } |
|
|
0 |
0 |
elsif ($command =~ /^e\s+(.+)$/) { } |
|
|
0 |
0 |
elsif ($command eq 'pause') { } |
|
|
0 |
0 |
elsif ($command eq 'g') { } |
|
|
0 |
0 |
elsif ($command =~ /^b (.+)$/) { } |
|
|
0 |
0 |
elsif ($command =~ /^p (.+)$/) { } |
|
|
0 |
0 |
elsif ($command eq 'o') { } |
|
|
0 |
0 |
elsif ($command =~ /^getchildren (.+)$/) { } |
|
|
0 |
0 |
elsif ($command =~ /^get_source (.+)$/) { } |
|
|
0 |
0 |
elsif ($command eq 'u') { } |
|
881
|
0 |
0 |
if $_dev_mode |
|
896
|
0 |
0 |
if $_dev_mode |
|
920
|
0 |
0 |
if (_is_use_frame($current_frame)) { } |
|
942
|
0 |
0 |
if (_is_use_frame($current_frame)) |
|
965
|
0 |
0 |
if ($new_line_index == -1) |
|
969
|
0 |
0 |
if ($new_line_index = index($input_buffer, "\n")) > -1 |
|
971
|
0 |
0 |
unless (defined $read_bytes) |
|
975
|
0 |
0 |
unless ($new_line_index > -1) |
|
977
|
0 |
0 |
if (scalar @saved) |
|
1001
|
0 |
0 |
if ($breakpoint and not $breakpoint->{'run_to_cursor'}) { } |
|
1012
|
0 |
0 |
if $_dev_mode |
|
1013
|
0 |
0 |
unless _process_command(_get_next_command()) |
|
1022
|
0 |
0 |
defined $wantarray ? : |
|
|
0 |
0 |
$wantarray ? : |
|
|
0 |
0 |
if $_debug_sub_handler and $_dev_mode |
|
1038
|
0 |
0 |
if $_enable_compile_time_breakpoints and $ready_to_go |
|
1049
|
0 |
0 |
if $_debug_sub_handler and $_dev_mode |
|
1057
|
0 |
0 |
if ($perl_file_id =~ /_<(.+)$/) { } |
|
1072
|
0 |
0 |
if $path =~ /^\(eval \d+\)/ |
|
1073
|
0 |
0 |
exists $_paths_to_perl_file_id_map{$path} ? : |
|
1082
|
0 |
143 |
unless ($perl_file_id) |
|
1084
|
0 |
0 |
if _dump_stack() and _dump_frames() |
|
1087
|
143 |
0 |
unless (exists $_perl_file_id_to_path_map{$perl_file_id}) |
|
1091
|
0 |
143 |
unless defined $path |
|
1112
|
0 |
0 |
if ($_loaded_breakpoints{$real_path}) |
|
1114
|
0 |
0 |
if $_dev_mode and $_debug_breakpoints |
|
1119
|
0 |
0 |
if (my $substituted_file_descriptor = $_evals_to_templates_map{$real_path}) |
|
1122
|
0 |
0 |
if $_dev_mode and $_debug_breakpoints |
|
1123
|
0 |
0 |
if (my $template_breakpoints = $_loaded_breakpoints{$template_path}) |
|
1125
|
0 |
0 |
if $_dev_mode and $_debug_breakpoints |
|
1128
|
0 |
0 |
if (my $mapped_line = $lines_map->{$line}) |
|
1130
|
0 |
0 |
if $_dev_mode and $_debug_breakpoints |
|
1137
|
0 |
0 |
scalar keys %$result ? : |
|
1142
|
0 |
0 |
if $single or $signal |
|
1144
|
0 |
0 |
unless $current_breakpoint |
|
1145
|
0 |
0 |
if ($current_breakpoint->{'run_to_cursor'}) |
|
1159
|
0 |
0 |
if $_dev_mode |
|
1168
|
0 |
0 |
if (my $e = $@) { } |
|
1171
|
0 |
0 |
unless (ref $e) |
|
1198
|
0 |
0 |
if (exists $_loaded_breakpoints{$real_path} and exists $_loaded_breakpoints{$real_path}{$real_line}) |
|
1203
|
0 |
0 |
if ($perl_breakpoints_map) |
|
1226
|
0 |
0 |
if $_dev_mode and $_debug_breakpoints |
|
1231
|
0 |
0 |
if (not defined $perl_source_lines->[$real_line] or $perl_source_lines->[$real_line] == 0) { } |
|
1236
|
0 |
0 |
unless $breakpoint_descriptor->{'run_to_cursor'} |
|
1243
|
0 |
0 |
if $_dev_mode |
|
1248
|
0 |
0 |
if $set_up_data->{'enableCompileTimeBreakpoints'} |
|
1249
|
0 |
0 |
if $set_up_data->{'enableNonInteractiveMode'} |
|
1251
|
0 |
0 |
if (ref $set_up_data->{'renderers'} eq "ARRAY") |
|
1253
|
0 |
0 |
if (ref $entry ne "HASH") |
|
1257
|
0 |
0 |
unless ($package and $code) |
|
1266
|
0 |
0 |
if ($set_up_data->{'initCode'}) |
|
1269
|
0 |
0 |
if $@ |
|
1272
|
0 |
0 |
if ($start_mode eq 'RUN') { } |
|
|
0 |
0 |
elsif ($start_mode eq 'COMPILE') { } |
|
1299
|
0 |
0 |
if $_dev_mode |
|
1301
|
0 |
0 |
if not defined $set_up_data and $allow_fail |
|
1302
|
0 |
0 |
unless defined $set_up_data |
|
1311
|
0 |
0 |
if $_dev_mode |
|
1326
|
0 |
0 |
$descriptor->{'remove'} ? : |
|
|
0 |
0 |
if $_dev_mode |
|
1333
|
0 |
0 |
if $ready_to_go |
|
1339
|
0 |
0 |
unless $ready_to_go |
|
1342
|
0 |
0 |
unless @{$paths_array;} |
|
1348
|
0 |
0 |
if $_dev_mode |
|
1353
|
0 |
0 |
exists $_paths_to_perl_file_id_map{$real_path} ? : |
|
|
0 |
0 |
$real_path =~ /^\(eval \d+\)/ ? : |
|
1357
|
0 |
0 |
unless $glob and *{$glob;}{"ARRAY"} and scalar @{*{$glob;}{"ARRAY"};} |
|
1362
|
0 |
0 |
unless my $loaded_breakpoints_descriptors = _get_loaded_breakpoints_by_real_path($real_path) |
|
1374
|
0 |
0 |
if (exists $breakpoint_descriptor->{'_processed'}) |
|
1377
|
0 |
0 |
if $_dev_mode |
|
1381
|
0 |
0 |
if ($real_line > $#$perl_source_lines) |
|
1383
|
0 |
0 |
if $_dev_mode |
|
1386
|
0 |
0 |
if $_dev_mode |
|
1388
|
0 |
0 |
if ($breakpoint_descriptor->{'remove'}) { } |
|
1397
|
0 |
0 |
unless $breakpoints_left |
|
1420
|
0 |
143 |
if ($path =~ /^\(eval (\d+)/) { } |
|
1427
|
0 |
143 |
unless ($real_path) |
|
1429
|
0 |
0 |
if $_dev_mode |
|
1435
|
0 |
143 |
if $trace_real_path and $_dev_mode |
|
1442
|
0 |
0 |
unless $context_key |
|
1456
|
0 |
0 |
if $_internal_process or not $ready_to_go |
|
1470
|
0 |
0 |
if $ready_to_go |
|
1476
|
0 |
0 |
if (defined $current_file_id) { } |
|
1478
|
0 |
0 |
if $_dev_mode |
|
1488
|
0 |
0 |
if _dump_stack() and _dump_frames() |
|
1493
|
0 |
0 |
if ($breakpoint = _get_current_breakpoint()) { } |
|
|
0 |
0 |
elsif ($single and $_skip_run_stop) { } |
|
|
0 |
0 |
elsif ($_skip_run_stop) { } |
|
1497
|
0 |
0 |
if ($condition and not _eval_expression($condition)->{'result'}) |
|
1505
|
0 |
0 |
if (my $action = $breakpoint->{'action'}) |
|
1510
|
0 |
0 |
unless ($breakpoint->{'suspend'}) |
|
1539
|
0 |
0 |
if $_dev_mode |
|
1549
|
0 |
0 |
if $_dev_mode |
|
1550
|
0 |
0 |
unless $skip_event_handler |
|
1582
|
0 |
0 |
if ($main_key =~ /^_<(\(eval (\d+)\).+?)$/) |
|
1584
|
0 |
0 |
if ($last_eval_id < $2) |
|
1592
|
0 |
0 |
if ($last_eval_id) { } |
|
1607
|
0 |
0 |
if $_dev_mode |
|
1610
|
0 |
0 |
if $ready_to_go |
|
1614
|
0 |
0 |
if $_dev_mode |
|
1627
|
0 |
0 |
unless ($_internal_process) |
|
1638
|
0 |
0 |
if ($current_package and $current_package eq "DB") |
|
1640
|
0 |
0 |
if $_dev_mode |
|
1641
|
0 |
0 |
if _dump_stack() |
|
1651
|
0 |
0 |
if ($single == 2) { } |
|
1655
|
0 |
0 |
if $_debug_sub_handler and $_dev_mode |
|
1666
|
0 |
0 |
if $stack_frame and $_debug_sub_handler and $_dev_mode |
|
1669
|
0 |
0 |
if ($sub eq 'DESTROY' or substr($sub, -9) eq '::DESTROY' or not defined $wantarray) { } |
|
|
0 |
0 |
elsif ($wantarray) { } |
|
1674
|
0 |
0 |
if ($stack_frame) { } |
|
1690
|
0 |
0 |
if ($stack_frame) { } |
|
1705
|
0 |
0 |
if ($stack_frame) { } |
|
1778
|
0 |
0 |
if $_debug_load_handler and $_dev_mode |
|
1787
|
0 |
0 |
if $ready_to_go |
|
1846
|
0 |
0 |
if (${^TAINT}) |
|
1856
|
0 |
0 |
if ($ENV{'PERL5_DEBUG_ROLE'} eq 'server') { } |
|
1880
|
0 |
0 |
if $_debug_socket or $attempt == $attempts |
|
1883
|
0 |
0 |
unless $_debug_socket or $allow_fail |
|
1885
|
0 |
0 |
if $_debug_socket |
|
1895
|
0 |
0 |
unless is_connected() |
|
1904
|
0 |
0 |
if is_connected() |