| line |
true |
false |
branch |
|
144
|
0 |
0 |
if ($display_errors and defined $RPerl::EVAL_ERROR and $RPerl::EVAL_ERROR ne '')
|
|
175
|
0 |
105 |
if ($ENV{'RPERL_DEBUG'} or $DEBUG)
|
|
183
|
0 |
0 |
if ($ENV{'RPERL_DEBUG'} or $DEBUG)
|
|
193
|
0 |
12320 |
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 |
7 |
unless (exists $INC{$target_file_name_config} and defined $INC{$target_file_name_config})
|
|
305
|
0 |
7 |
unless (-e $target_config_pm_loaded)
|
|
316
|
7 |
0 |
if (pop @directories_loaded_split eq '')
|
|
324
|
0 |
7 |
if (exists $INC{$target_file_name_pm} and defined $INC{$target_file_name_pm})
|
|
329
|
0 |
0 |
unless (-f $target_pm_loaded)
|
|
336
|
7 |
0 |
if (substr($directories_loaded, -1, 1) eq '/')
|
|
373
|
406 |
35 |
if ($sub_inc_path ne '') { }
|
|
388
|
0 |
133 |
$RPerl::OSNAME eq 'MSWin32' ? :
|
|
|
133 |
0 |
if (-f $possible_target_script and $RPerl::OSNAME eq 'MSWin32' ? 1 : -x $possible_target_script)
|
|
391
|
105 |
266 |
if ($target_script_found eq $possible_target_script)
|
|
393
|
28 |
105 |
if ($is_unique)
|
|
397
|
147 |
0 |
unless (defined $target_pm_loaded)
|
|
402
|
21 |
126 |
if (-f $possible_target_pm)
|
|
405
|
7 |
7 |
if ($target_pm_found eq $possible_target_pm)
|
|
409
|
14 |
7 |
if ($is_unique)
|
|
417
|
0 |
7 |
if (scalar @{$target_scripts_found;} == 0)
|
|
421
|
7 |
0 |
if (scalar @{$target_scripts_found;} > 1)
|
|
430
|
0 |
7 |
if (defined $target_pm_loaded) { }
|
|
435
|
0 |
7 |
if (scalar @{$target_pms_found;} == 0)
|
|
441
|
0 |
14 |
if (substr($target_pm_found_single, 0, 2) eq './' or substr($target_pm_found_single, 0, 2) eq '.\\')
|
|
444
|
7 |
7 |
if ($target_pm_found_single_stripped eq $target_pm_wanted)
|
|
448
|
0 |
7 |
unless (defined $target_pm_found)
|
|
473
|
7 |
7 |
if ($directories_target_pm_split[$i] eq $directories_target_script_split[$i]) { }
|
|
496
|
0 |
7 |
if ($MY_BASE_PATH eq '') { }
|
|
510
|
7 |
56 |
if (-e $inc_core_perl_h_path and -r $inc_core_perl_h_path and -f $inc_core_perl_h_path) { }
|