Branch Coverage

lib/ExtUtils/Liblist/Kid.pm
Criterion Covered Total %
branch 50 248 20.1


line true false branch
23 0 163 if ($^O eq 'VMS') { }
0 163 elsif ($^O eq 'MSWin32') { }
32 0 0 if ($^O =~ /os2|android/ and $ExtUtils::Liblist::Kid::Config{'perllibs'})
37 0 0 if $potential_libs
40 1 152 $give_libs ? :
153 10 unless $potential_libs
41 0 10 if $verbose
44 10 0 defined $ExtUtils::Liblist::Kid::Config{'perllibs'} ? :
61 5 5 if ($ExtUtils::Liblist::Kid::Config{'gccversion'})
67 0 10 if ($^O eq "darwin" or $^O eq "next")
77 3 12 if ($thislib =~ s/^(-[LR]|-Wl,-R|-Wl,-rpath,)//)
79 0 3 unless (-d $thislib)
80 0 0 if $verbose
85 0 3 if ($ptype eq "-R" or $ptype =~ /^-Wl,-[Rr]/)
86 0 0 if ($ExtUtils::Liblist::Kid::Config{'lddlflags'} =~ /-Wl,-[Rr]/) { }
0 0 elsif ($ExtUtils::Liblist::Kid::Config{'lddlflags'} =~ /-R/) { }
93 3 0 unless ("File::Spec"->file_name_is_absolute($thislib))
98 1 2 if $thislib =~ / /
104 0 12 if ($thislib =~ /^-Wl,/)
111 10 2 if ($thislib =~ s/^-l(:)?//) { }
132 0 87 if (@fullname = $self->lsdir($thispth, "^\Qlib$thislib.$so.\E[0-9]+") or @fullname = $self->lsdir($thispth, "^\Qlib$thislib.\E[0-9]+\Q.$so\E")) { }
2 85 elsif (-f ($fullname = "$thispth/lib$thislib.$so") and $ExtUtils::Liblist::Kid::Config{'dlsrc'} ne 'dl_dld.xs' || $thislib eq 'm') { }
0 85 elsif (-f ($fullname = "$thispth/lib${thislib}_s$Config_libext") and not $ExtUtils::Liblist::Kid::Config{'archname'} =~ /RM\d\d\d-svr4/ and $thislib .= '_s') { }
0 85 elsif (-f ($fullname = "$thispth/lib$thislib$Config_libext")) { }
0 85 elsif (defined $Config_dlext and -f ($fullname = "$thispth/lib$thislib.$Config_dlext")) { }
0 85 elsif ($^O eq 'darwin' and require DynaLoader and defined &DynaLoader::dl_load_file and DynaLoader::dl_load_file($fullname = "$thispth/lib$thislib.$so", 0)) { }
0 85 elsif (-f ($fullname = "$thispth/$thislib$Config_libext")) { }
0 85 elsif (-f ($fullname = "$thispth/lib$thislib.dll$Config_libext")) { }
0 85 elsif ($^O eq 'cygwin' and -f ($fullname = "$thispth/$thislib.dll")) { }
0 85 elsif (-f ($fullname = "$thispth/Slib$thislib$Config_libext")) { }
0 85 elsif ($^O eq 'dgux' and -l ($fullname = "$thispth/lib$thislib$Config_libext") and readlink($fullname) =~ /^elink:/s) { }
0 85 elsif ($custom_name and -f ($fullname = "$thispth/$thislib")) { }
211 0 85 if $verbose
214 0 2 if $verbose
215 2 0 unless $libs_seen{$fullname}++
223 0 2 $^O eq 'aix' ? :
232 2 0 if $is_dyna and not $in_perl and not $ld_run_path_seen{$fullnamedir}++
238 2 0 unless ($in_perl or $ExtUtils::Liblist::Kid::Config{'osname'} eq "next" and $thislib eq 'm' || $thislib eq 'ndbm')
248 0 2 if ($ExtUtils::Liblist::Kid::Config{'dlsrc'} =~ /dl_next/ and $ExtUtils::Liblist::Kid::Config{'osvers'} lt '4_0' or $ExtUtils::Liblist::Kid::Config{'dlsrc'} =~ /dl_dld/) { }
262 2 0 if ($is_dyna) { }
266 2 0 unless $in_perl and $^O eq "sunos"
275 8 2 unless $found_lib > 0
279 2 8 if ($found) { }
280 1 7 $give_libs ? :
283 0 2 $give_libs ? :
296 0 0 $give_libs ? :
0 0 unless $potential_libs
318 0 0 if (/^:\w+$/)
319 0 0 if lc $_ eq ":nosearch"
320 0 0 if lc $_ eq ":search"
321 0 0 unless /^:(no)?(search|default)$/i
326 0 0 unless ($search)
327 0 0 unless $GC
328 0 0 if $VC
334 0 0 if (s/^-L// and not -d $_) { }
0 0 elsif (-d $_) { }
339 0 0 unless ("File::Spec"->file_name_is_absolute($_))
350 0 0 unless ($fullname)
357 0 0 if $path
362 0 0 $give_libs ? :
0 0 unless @extralibs
376 0 0 $give_libs ? :
0 0 wantarray ? :
386 0 0 if $libs and not $potential_libs =~ /:nodefault/i
405 0 0 if $VC and $ENV{'LIB'}
406 0 0 if $GC and $ENV{'LIBRARY_PATH'}
419 0 0 if $path
421 0 0 if -f $fullname
440 0 0 unless $lib =~ s/^-l//
441 0 0 if $lib =~ /^lib/ and not $GC
444 0 0 if $no_prefix eq $lib
446 0 0 if $GC
458 0 0 if $lib =~ /\Q$extension\E$/i
464 0 0 if $ExtUtils::Liblist::Kid::Config{'lib_ext'}
465 0 0 if grep {/^\.a$/;} @extensions
466 0 0 unless grep {/^\.lib$/;} @extensions
472 0 0 unless $verbose
482 0 0 $ExtUtils::Liblist::Kid::Config{'ldflags'} =~ m[/Debug]i ? :
491 0 0 if ($self->{'PERL_SRC'})
494 0 0 if (($locspec, $type) = $lib =~ m[^([\w\$-]+)(/\w+)?] and $locspec =~ /perl/i)
495 0 0 if (lc $type eq '/share') { }
0 0 elsif (lc $type eq '/library') { }
499 0 0 if -e $locspec
503 0 0 @crtls ? :
505 0 0 unless ($potential_libs)
506 0 0 if $verbose
507 0 0 $give_libs ? :
535 0 0 if $verbose
540 0 0 if $lib =~ /^-L(.*)/
541 0 0 if $lib =~ /[:>\]]$/
542 0 0 if -d $lib
543 0 0 if $lib =~ /^-l(.*)/
552 0 0 unless (-d $dir)
553 0 0 if $verbose > 1
557 0 0 if $verbose
558 0 0 if ('File::Spec'->file_name_is_absolute($dir)) { }
569 0 0 if (exists $libmap{$lib})
570 0 0 unless length $libmap{$lib}
581 0 0 unless ($lib =~ /\.[^:>\]]*$/)
583 0 0 unless $lib =~ /[:>\]]/
586 0 0 if $verbose
594 0 0 if $verbose > 2
596 0 0 if (defined $fullname and -f $fullname) { }
0 0 elsif (-f ($fullname = VMS::Filespec::rmsexpand($name, $so)) or -f ($fullname = VMS::Filespec::rmsexpand($name, '.exe'))) { }
0 0 elsif (not length $ctype and -f ($fullname = VMS::Filespec::rmsexpand($name, $lib_ext)) || -f ($fullname = VMS::Filespec::rmsexpand($name, '.olb'))) { }
0 0 elsif (not length $ctype and -f ($fullname = VMS::Filespec::rmsexpand($name, $obj_ext)) || -f ($fullname = VMS::Filespec::rmsexpand($name, '.obj'))) { }
599 0 0 if ($fullname =~ /(?:$so|exe)$/i) { }
0 0 elsif ($fullname =~ /(?:$lib_ext|olb)$/i) { }
0 0 elsif ($fullname =~ /(?:$obj_ext|obj)$/i) { }
614 0 0 unless $fullname =~ /exe;?\d*$/i
623 0 0 unless $fullname =~ /olb;?\d*$/i
633 0 0 unless $fullname =~ /obj;?\d*$/i
635 0 0 if (defined $type)
638 0 0 if $ctype eq "SHR"
641 0 0 if ($ctype)
644 0 0 if $verbose > 1
646 0 0 unless $libs_seen{$fullname}++
653 0 0 if exists $found{'OBJ'}
654 0 0 if exists $found{'OLB'}
655 0 0 if exists $found{'SHR'}
658 0 0 $crtlstr ? :
660 0 0 if $verbose
661 0 0 $give_libs ? :
0 0 wantarray ? :