| 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') { }
|