| line |
true |
false |
branch |
|
144
|
0 |
0 |
if ($display_errors and defined $RPerl::EVAL_ERROR and $RPerl::EVAL_ERROR ne '')
|
|
175
|
0 |
102 |
if ($ENV{'RPERL_DEBUG'} or $DEBUG)
|
|
183
|
0 |
0 |
if ($ENV{'RPERL_DEBUG'} or $DEBUG)
|
|
193
|
0 |
11066 |
if ($ENV{'RPERL_VERBOSE'} or $VERBOSE)
|
|
201
|
0 |
0 |
if ($ENV{'RPERL_VERBOSE'} or $VERBOSE)
|
|
210
|
0 |
0 |
if ($ENV{'RPERL_VERBOSE'} or $VERBOSE)
|
|
211
|
0 |
0 |
if ($RPerl::OSNAME eq 'linux') { }
|
|
|
0 |
0 |
elsif ($RPerl::OSNAME eq 'MSWin32') { }
|
|
213
|
0 |
0 |
if (defined $reset_path)
|
|
234
|
0 |
0 |
if (!defined($ENV{'RPERL_WARNINGS'}) || $ENV{'RPERL_WARNINGS'} and $WARNINGS)
|
|
268
|
0 |
0 |
if (defined ${$glob;})
|
|
271
|
0 |
0 |
if ($ref_type ne '')
|
|
275
|
0 |
0 |
if (@{$glob;})
|
|
278
|
0 |
0 |
if (%{$glob;})
|
|
281
|
0 |
0 |
if (defined &{$glob;})
|
|
294
|
0 |
9 |
unless (exists $INC{$target_file_name_config} and defined $INC{$target_file_name_config})
|
|
305
|
0 |
9 |
unless (-e $target_config_pm_loaded)
|
|
316
|
9 |
0 |
if (pop @directories_loaded_split eq '')
|
|
324
|
0 |
9 |
if (exists $INC{$target_file_name_pm} and defined $INC{$target_file_name_pm})
|
|
329
|
0 |
0 |
unless (-f $target_pm_loaded)
|
|
336
|
9 |
0 |
if (substr($directories_loaded, -1, 1) eq '/')
|
|
373
|
522 |
45 |
if ($sub_inc_path ne '') { }
|
|
388
|
0 |
171 |
$RPerl::OSNAME eq 'MSWin32' ? :
|
|
|
171 |
0 |
if (-f $possible_target_script and $RPerl::OSNAME eq 'MSWin32' ? 1 : -x $possible_target_script)
|
|
391
|
135 |
342 |
if ($target_script_found eq $possible_target_script)
|
|
393
|
36 |
135 |
if ($is_unique)
|
|
397
|
189 |
0 |
unless (defined $target_pm_loaded)
|
|
402
|
27 |
162 |
if (-f $possible_target_pm)
|
|
405
|
9 |
9 |
if ($target_pm_found eq $possible_target_pm)
|
|
409
|
18 |
9 |
if ($is_unique)
|
|
417
|
0 |
9 |
if (scalar @{$target_scripts_found;} == 0)
|
|
421
|
9 |
0 |
if (scalar @{$target_scripts_found;} > 1)
|
|
430
|
0 |
9 |
if (defined $target_pm_loaded) { }
|
|
435
|
0 |
9 |
if (scalar @{$target_pms_found;} == 0)
|
|
439
|
9 |
9 |
if ($target_pm_found_single eq $target_pm_wanted)
|
|
443
|
0 |
9 |
unless (defined $target_pm_found)
|
|
468
|
9 |
9 |
if ($directories_target_pm_split[$i] eq $directories_target_script_split[$i]) { }
|
|
491
|
0 |
9 |
if ($MY_BASE_PATH eq '') { }
|
|
507
|
9 |
72 |
if (-e $inc_core_perl_h_path and -r $inc_core_perl_h_path and -f $inc_core_perl_h_path) { }
|