| line |
true |
false |
branch |
|
101
|
104 |
494 |
if (scalar @ARG)
|
|
104
|
93 |
11 |
if ($package_exporter eq 'RPerl::Exporter') { }
|
|
105
|
93 |
0 |
if ($ARG[0] eq 'import') { }
|
|
124
|
0 |
60 |
if ($possible_sigil eq '$' or $possible_sigil eq '@' or $possible_sigil eq '%' or $possible_sigil eq '*') { }
|
|
131
|
0 |
60 |
if ($possible_sigil eq '&') { }
|
|
|
0 |
60 |
elsif (not $possible_sigil =~ /\w/) { }
|
|
144
|
0 |
29 |
if ($possible_sigil eq '$' or $possible_sigil eq '@' or $possible_sigil eq '%' or $possible_sigil eq '*') { }
|
|
151
|
0 |
29 |
if ($possible_sigil eq '&') { }
|
|
|
0 |
29 |
elsif (not $possible_sigil =~ /\w/) { }
|
|
167
|
0 |
27 |
if ($possible_sigil eq '$' or $possible_sigil eq '@' or $possible_sigil eq '%' or $possible_sigil eq '*') { }
|
|
174
|
0 |
0 |
unless (defined *{$package_exporter . '::' . $variable_no_sigil;})
|
|
178
|
0 |
0 |
if (exists $variables_export->{$variable}) { }
|
|
|
0 |
0 |
elsif (exists $variables_export_ok->{$variable}) { }
|
|
187
|
0 |
0 |
if ($possible_sigil eq '$') { }
|
|
|
0 |
0 |
elsif ($possible_sigil eq '@') { }
|
|
|
0 |
0 |
elsif ($possible_sigil eq '%') { }
|
|
|
0 |
0 |
elsif ($possible_sigil eq '*') { }
|
|
208
|
0 |
27 |
if ($possible_sigil eq '&') { }
|
|
|
0 |
27 |
elsif (not $possible_sigil =~ /\w/) { }
|
|
216
|
0 |
27 |
unless (defined *{$package_exporter . '::' . $subroutine;})
|
|
220
|
0 |
27 |
if (exists $subroutines_export->{$subroutine}) { }
|
|
|
27 |
0 |
elsif (exists $subroutines_export_ok->{$subroutine}) { }
|
|
230
|
0 |
27 |
if ($subroutine =~ /_CHECK$/ or $subroutine =~ /_CHECKTRACE$/) { }
|
|
|
0 |
27 |
elsif ($subroutine =~ /^gsl_/ and not $subroutine =~ /^gsl_matrix_to/ and $subroutine ne 'gsl_matrix_rows' and $subroutine ne 'gsl_matrix_cols') { }
|
|
258
|
0 |
432 |
if (substr($subroutine, 0, $subroutine_start_length) eq $subroutine_start)
|
|
264
|
0 |
27 |
unless ($args_type_checking)
|
|
296
|
27 |
0 |
unless (defined &{$package_importer . '::' . $subroutine;})
|
|
307
|
27 |
0 |
unless (defined &{$package_importer . '::__CHECK_CODE_' . $subroutine;})
|
|
310
|
27 |
0 |
unless (defined &{$package_importer . '::__UNCHECKED_' . $subroutine;})
|
|
313
|
27 |
0 |
unless (defined &{$package_importer . '::__CHECKED_' . $subroutine;})
|
|
319
|
0 |
7 |
if ($EVAL_ERROR)
|
|
|
0 |
18 |
if ($EVAL_ERROR)
|
|
|
0 |
15 |
if ($EVAL_ERROR)
|
|
|
0 |
7 |
if ($EVAL_ERROR)
|
|
|
0 |
7 |
if ($EVAL_ERROR)
|
|
|
0 |
16 |
if ($EVAL_ERROR)
|
|
321
|
0 |
27 |
if ($EVAL_ERROR)
|
|
333
|
11 |
494 |
unless (scalar @{$package_exporter . '::EXPORT';})
|
|
338
|
0 |
14198 |
if ($possible_sigil eq '$' or $possible_sigil eq '@' or $possible_sigil eq '%' or $possible_sigil eq '*') { }
|
|
346
|
0 |
0 |
unless (defined *{$package_exporter . '::' . $variable_no_sigil;})
|
|
357
|
0 |
0 |
if ($possible_sigil eq '$') { }
|
|
|
0 |
0 |
elsif ($possible_sigil eq '@') { }
|
|
|
0 |
0 |
elsif ($possible_sigil eq '%') { }
|
|
|
0 |
0 |
elsif ($possible_sigil eq '*') { }
|
|
373
|
0 |
14198 |
if ($possible_sigil eq '&') { }
|
|
|
0 |
14198 |
elsif (not $possible_sigil =~ /\w/) { }
|
|
385
|
4338 |
9860 |
if ($subroutine =~ /_CHECK$/ or $subroutine =~ /_CHECKTRACE$/) { }
|
|
|
0 |
9860 |
elsif ($subroutine =~ /^gsl_/ and not $subroutine =~ /^gsl_matrix_to/ and $subroutine ne 'gsl_matrix_rows' and $subroutine ne 'gsl_matrix_cols') { }
|
|
427
|
9747 |
217421 |
if (substr($subroutine, 0, $subroutine_start_length) eq $subroutine_start)
|
|
434
|
14085 |
113 |
unless ($args_type_checking)
|
|
457
|
89 |
24 |
unless (defined &{$package_importer . '::' . $subroutine;})
|
|
468
|
89 |
24 |
unless (defined &{$package_importer . '::__CHECK_CODE_' . $subroutine;})
|
|
471
|
89 |
24 |
unless (defined &{$package_importer . '::__UNCHECKED_' . $subroutine;})
|
|
474
|
89 |
24 |
unless (defined &{$package_importer . '::__CHECKED_' . $subroutine;})
|
|
480
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
22 |
if ($EVAL_ERROR)
|
|
|
0 |
2 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
|
0 |
0 |
if ($EVAL_ERROR)
|
|
482
|
0 |
113 |
if ($EVAL_ERROR)
|