| line |
true |
false |
branch |
|
65
|
0 |
1 |
unless &_is_string |
|
69
|
0 |
0 |
if (not &_is_string) { } |
|
|
0 |
0 |
elsif (not $_[0] =~ /\A[A-Z_a-z][0-9A-Z_a-z]*(?:::[0-9A-Z_a-z]+)*\z/) { } |
|
109
|
0 |
0 |
if defined &DynaLoader::mod2fname |
|
118
|
0 |
0 |
unless my $loadlib = DynaLoader::dl_findfile(map({my $d = $_;
'???';
"-L$d/auto/$modpname";} @INC), @INC, $modfname) |
|
173
|
0 |
0 |
if ($linkable_finder) { } |
|
195
|
0 |
0 |
if ($linkable_finder) { } |
|
277
|
0 |
1 |
if @_ < 2 |
|
280
|
0 |
1 |
unless /\A(?:
resolve_using|require_symbols|use_bootstrap_options|
symbols_global|unresolved_action
)\z/x |
|
286
|
0 |
1 |
exists $options->{'unresolved_action'} ? : |
|
287
|
0 |
1 |
unless &_is_string($unres_action) and $unres_action =~ /\A(?:ERROR|WARN|IGNORE)\z/ |
|
291
|
0 |
1 |
unless defined &DynaLoader::dl_load_file |
|
295
|
0 |
1 |
exists $options->{'resolve_using'} ? : |
|
298
|
1 |
0 |
exists $options->{'require_symbols'} ? : |
|
299
|
0 |
1 |
if ($options->{'use_bootstrap_options'}) |
|
302
|
0 |
0 |
if (-s $bs) |
|
304
|
0 |
0 |
if $@ ne "" |
|
308
|
0 |
1 |
$options->{'symbols_global'} ? : |
|
|
0 |
1 |
unless my $libh = DynaLoader::dl_load_file($loadable_filename, $options->{'symbols_global'} ? 1 : 0) |
|
311
|
0 |
1 |
if ($unres_action ne "IGNORE" and my(@unresolved) = DynaLoader::dl_undef_symbols()) |
|
314
|
0 |
0 |
if ($unres_action eq 'ERROR') { } |
|
350
|
0 |
3 |
if @_ < 3 |
|
352
|
0 |
3 |
unless /\Aunresolved_action\z/ |
|
356
|
3 |
0 |
exists $options->{'unresolved_action'} ? : |
|
357
|
0 |
3 |
unless &_is_string($unres_action) and $unres_action =~ /\A(?:ERROR|WARN|IGNORE)\z/ |
|
362
|
0 |
3 |
if (not defined $val and $unres_action ne "IGNORE") |
|
364
|
0 |
0 |
if ($unres_action eq 'ERROR') { } |
|
399
|
0 |
1 |
if @_ < 2 |
|
401
|
0 |
1 |
unless /\Afail_action\z/ |
|
404
|
1 |
0 |
exists $options->{'fail_action'} ? : |
|
405
|
0 |
1 |
unless &_is_string($fail_action) and $fail_action =~ /\A(?:ERROR|WARN|IGNORE)\z/ |
|
410
|
1 |
0 |
if (defined &DynaLoader::dl_unload_file) { } |
|
411
|
0 |
1 |
unless DynaLoader::dl_unload_file($_[0]) |
|
416
|
0 |
1 |
if (defined $err and $fail_action ne "IGNORE") |
|
418
|
0 |
0 |
if ($fail_action eq 'ERROR') { } |