| line |
true |
false |
branch |
|
67
|
0 |
1 |
unless &_is_string
|
|
71
|
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/) { }
|
|
111
|
0 |
0 |
if defined &DynaLoader::mod2fname
|
|
120
|
0 |
0 |
unless my $loadlib = DynaLoader::dl_findfile(map({my $d = $_;
'???';
"-L$d/auto/$modpname";} @INC), @INC, $modfname)
|
|
172
|
0 |
0 |
if ($linkable_finder) { }
|
|
194
|
0 |
0 |
if ($linkable_finder) { }
|
|
276
|
0 |
1 |
if @_ < 2
|
|
279
|
0 |
1 |
unless /\A(?:
resolve_using|require_symbols|use_bootstrap_options|
symbols_global|unresolved_action
)\z/x
|
|
284
|
0 |
1 |
exists $$options{'unresolved_action'} ? :
|
|
286
|
0 |
1 |
unless _is_string $unres_action and $unres_action =~ /\A(?:ERROR|WARN|IGNORE)\z/
|
|
290
|
0 |
1 |
unless defined &DynaLoader::dl_load_file
|
|
294
|
0 |
1 |
exists $$options{'resolve_using'} ? :
|
|
297
|
1 |
0 |
exists $$options{'require_symbols'} ? :
|
|
298
|
0 |
1 |
if ($$options{'use_bootstrap_options'})
|
|
301
|
0 |
0 |
if (-s $bs)
|
|
303
|
0 |
0 |
if $@ ne ''
|
|
306
|
0 |
1 |
$$options{'symbols_global'} ? :
|
|
|
0 |
1 |
unless my $libh = DynaLoader::dl_load_file($loadable_filename, $$options{'symbols_global'} ? 1 : 0)
|
|
310
|
0 |
1 |
if ($unres_action ne 'IGNORE' and my(@unresolved) = DynaLoader::dl_undef_symbols())
|
|
313
|
0 |
0 |
if ($unres_action eq 'ERROR') { }
|
|
349
|
0 |
3 |
if @_ < 3
|
|
351
|
0 |
3 |
unless /\Aunresolved_action\z/
|
|
354
|
3 |
0 |
exists $$options{'unresolved_action'} ? :
|
|
356
|
0 |
3 |
unless _is_string $unres_action and $unres_action =~ /\A(?:ERROR|WARN|IGNORE)\z/
|
|
361
|
0 |
3 |
if (not defined $val and $unres_action ne 'IGNORE')
|
|
363
|
0 |
0 |
if ($unres_action eq 'ERROR') { }
|
|
398
|
0 |
1 |
if @_ < 2
|
|
400
|
0 |
1 |
unless /\Afail_action\z/
|
|
402
|
1 |
0 |
exists $$options{'fail_action'} ? :
|
|
404
|
0 |
1 |
unless _is_string $fail_action and $fail_action =~ /\A(?:ERROR|WARN|IGNORE)\z/
|
|
409
|
1 |
0 |
if (defined &DynaLoader::dl_unload_file) { }
|
|
410
|
0 |
1 |
unless DynaLoader::dl_unload_file($_[0])
|
|
415
|
0 |
1 |
if (defined $err and $fail_action ne 'IGNORE')
|
|
417
|
0 |
0 |
if ($fail_action eq 'ERROR') { }
|