| line |
true |
false |
branch |
|
31
|
0 |
476 |
unless (defined ${$_[0] . '::properties';})
|
|
50
|
476 |
2344 |
if ($parent_package_name eq 'RPerl::CompileUnit::Module::Class' or $parent_package_name eq 'Parse::Eyapp::Node')
|
|
60
|
5620 |
0 |
unless (exists $properties->{$parent_property_key})
|
|
85
|
66 |
30 |
if ($parent_package_name eq 'RPerl::CompileUnit::Module::Class' or $parent_package_name eq 'Parse::Eyapp::Node')
|
|
185
|
0 |
3831 |
if ($module_filename_short eq '-e')
|
|
193
|
0 |
3831 |
if (not defined $module_filename_long or $module_filename_long eq $module_filename_short)
|
|
198
|
0 |
3831 |
if (-e $module_filename_long . 'c')
|
|
222
|
1093 |
110 |
unless (exists $rperlnamespaces_generated::CORE->{$namespace_root} or exists $rperlnamespaces_generated::RPERL_DEPS->{$namespace_root} or exists $rperlnamespaces_generated::RPERL_FILES->{$module_filename_short})
|
|
228
|
0 |
1093 |
unless open my $MODULE_FILE, '<', $module_filename_long
|
|
236
|
4 |
188609 |
if ($module_file_line =~ /^\s*\#\s*\<\<\<\s*TYPE_CHECKING\s*\:\s*(\w+)\s*\>\>\>/msx)
|
|
239
|
0 |
4 |
if ($inside_subroutine) { }
|
|
251
|
22758 |
165855 |
if $module_file_line =~ /^\s*\#/msx
|
|
254
|
90 |
165765 |
if ($module_file_line =~ /^\=(\w+)/msx)
|
|
258
|
0 |
90 |
unless (defined $module_file_line)
|
|
262
|
0 |
22403 |
unless (defined $module_file_line)
|
|
271
|
10 |
165735 |
if ($module_file_line =~ /\=\s*\<\<\s*(\w+)\s*\;\s*$/msx or $module_file_line =~ /\=\s*\<\<\s*\'(\w+)\'\s*\;\s*$/msx or $module_file_line =~ /\=\s*\<\<\s*\"(\w+)\"\s*\;\s*$/msx)
|
|
277
|
0 |
30 |
unless (defined $module_file_line)
|
|
282
|
0 |
116 |
unless (defined $module_file_line)
|
|
290
|
0 |
165735 |
if ($module_file_line eq '__DATA__')
|
|
297
|
243 |
165492 |
if ($module_file_line eq '__END__')
|
|
308
|
23 |
165469 |
if ($module_file_line =~ /^\s*(use\s+RPerl\s*;)/msx)
|
|
316
|
2279 |
163190 |
if ($module_file_line =~ /^\s*package\s+/msx)
|
|
319
|
1195 |
1084 |
if ($inside_package)
|
|
326
|
1278 |
1001 |
if ($module_file_line =~ /^\s*package\s+(\w+(::\w+)*)\;.*$/msx) { }
|
|
|
1001 |
0 |
elsif ($module_file_line =~ /^\s*package\s*\#\s*hide.*$/msx) { }
|
|
335
|
1001 |
0 |
if ($module_file_line =~ /^\s*(\w+(::\w+)*)\;.*$/msx) { }
|
|
355
|
0 |
2279 |
if ($inside_subroutine)
|
|
363
|
1062 |
1217 |
unless ($use_rperl)
|
|
367
|
274 |
2800 |
unless ($module_file_line =~ /\Q$rperl_header_line\E/msx)
|
|
384
|
1445 |
560 |
unless (eval 'defined &main::' . $package_name_underscores . '__MODE_ID')
|
|
385
|
0 |
1445 |
unless eval '*main::' . $package_name_underscores . '__MODE_ID = sub { return 0; };'
|
|
389
|
0 |
1445 |
if ($RPerl::CompileUnit::Module::Class::EVAL_ERROR)
|
|
396
|
627 |
162563 |
if ($module_file_line =~ /^\s*our\s+hashref\s+\$properties/msx)
|
|
407
|
2133 |
160430 |
if ($module_file_line =~ /^\s*our\s+([\w:]+)\s+\$(\w+)\s+\=\s+sub\s+\{/msx)
|
|
409
|
0 |
2133 |
unless ($use_rperl)
|
|
415
|
0 |
2133 |
if ($inside_subroutine_arguments)
|
|
421
|
0 |
2133 |
if ($inside_subroutine)
|
|
432
|
2133 |
0 |
if ($CHECK eq 'OFF') { }
|
|
|
0 |
0 |
elsif ($CHECK ne 'ON' and $CHECK ne 'TRACE') { }
|
|
448
|
23 |
160407 |
if ($module_file_line =~ /^\s*our\s+[\w:]+\s+\$\w+\s+\=/msx)
|
|
453
|
2850 |
157580 |
if ($module_file_line =~ /^\s*sub\s+[\w:]+\s+\{/msx)
|
|
458
|
800 |
159630 |
if ($module_file_line =~ /^\s*1\;\s+\#\ end\ of/msx)
|
|
463
|
1286 |
159144 |
if ($inside_object_properties)
|
|
470
|
0 |
159144 |
if ($inside_subroutine)
|
|
471
|
0 |
0 |
unless ($use_rperl)
|
|
479
|
0 |
0 |
if ($module_file_line =~ /^\s*\(\s*my/msx)
|
|
484
|
0 |
0 |
if ($inside_subroutine_arguments)
|
|
486
|
0 |
0 |
if ($subroutine_arguments_line =~ /\@ARG\;/msx)
|
|
487
|
0 |
0 |
unless ($subroutine_arguments_line =~ /\@ARG\;$/msx)
|
|
506
|
0 |
0 |
if ($CHECK eq 'ON') { }
|
|
|
0 |
0 |
elsif ($CHECK eq 'TRACE') { }
|
|
549
|
0 |
1092 |
unless close $MODULE_FILE
|
|
552
|
0 |
1092 |
if ($inside_subroutine)
|
|
553
|
0 |
0 |
if ($inside_subroutine_arguments)
|
|
582
|
11 |
41 |
if ($property_type =~ /_arrayref$/ and not eval 'defined &' . $package_name . '::get_' . $property_name . '_element') { }
|
|
|
7 |
34 |
elsif ($property_type =~ /_hashref$/ and not eval 'defined &' . $package_name . '::get_' . $property_name . '_element') { }
|
|
590
|
11 |
0 |
if (exists $$rperlnamespaces_generated::RPERL{$property_element_type . '::'}) { }
|
|
633
|
0 |
0 |
unless eval $eval_string
|
|
634
|
0 |
0 |
if ($RPerl::CompileUnit::Module::Class::EVAL_ERROR)
|
|
647
|
7 |
0 |
if (exists $$rperlnamespaces_generated::RPERL{$property_value_type . '::'}) { }
|
|
690
|
0 |
0 |
unless eval $eval_string
|
|
691
|
0 |
0 |
if ($RPerl::CompileUnit::Module::Class::EVAL_ERROR)
|
|
701
|
52 |
0 |
if ($return_whole)
|
|
702
|
52 |
0 |
unless (eval 'defined &' . $package_name . '::get_' . $property_name)
|
|
704
|
0 |
52 |
unless eval $eval_string
|
|
705
|
0 |
52 |
if ($RPerl::CompileUnit::Module::Class::EVAL_ERROR)
|
|
708
|
52 |
0 |
unless (eval 'defined &' . $package_name . '::set_' . $property_name)
|
|
718
|
0 |
52 |
unless eval $eval_string
|
|
720
|
0 |
52 |
if ($RPerl::CompileUnit::Module::Class::EVAL_ERROR)
|
|
745
|
1657 |
630 |
if ($object_properties_string eq '') { }
|
|
|
593 |
37 |
elsif ($object_properties_string =~ /^\s*our\s+hashref\s+\$properties\s*=\s*\{\s*\}\;/msx) { }
|
|
762
|
33 |
4 |
if ($object_properties_string =~ /(\w+)\s*\=\>\s*my\s+([\w:]+)\s+\$TYPED_(\w+)/gmsx)
|
|
773
|
0 |
52 |
if ($object_property_key ne $object_property_inner_type_name)
|
|
783
|
19 |
33 |
if ($object_properties_string =~ /(\w+)\s*\=\>\s*my\s+([\w:]+)\s+\$TYPED_(\w+)/gmsx) { }
|
|
815
|
1725 |
408 |
if ($subroutine_type =~ /\::method$/msx) { }
|
|
816
|
0 |
1725 |
if ($package_name eq '')
|
|
836
|
0 |
1725 |
unless eval $subroutine_definition_code
|
|
838
|
0 |
1725 |
if ($RPerl::CompileUnit::Module::Class::EVAL_ERROR)
|
|
853
|
1 |
407 |
if (eval 'defined(&main::' . $subroutine_name . ')')
|
|
860
|
0 |
407 |
if ($package_name eq '') { }
|
|
876
|
0 |
407 |
unless eval $subroutine_definition_code
|
|
878
|
0 |
407 |
if ($RPerl::CompileUnit::Module::Class::EVAL_ERROR)
|
|
881
|
407 |
0 |
if ($package_name ne '')
|
|
899
|
0 |
407 |
unless eval $subroutine_definition_code
|
|
901
|
0 |
407 |
if ($RPerl::CompileUnit::Module::Class::EVAL_ERROR)
|