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'})
66 0 10 if ($^O eq "darwin" or $^O eq "next")
76 3 12 if ($thislib =~ s/^(-[LR]|-Wl,-R|-Wl,-rpath,)//)
78 0 3 unless (-d $thislib)
79 0 0 if $verbose
84 0 3 if ($ptype eq "-R" or $ptype =~ /^-Wl,-[Rr]/)
85 0 0 if ($ExtUtils::Liblist::Kid::Config{'lddlflags'} =~ /-Wl,-[Rr]/) { }
0 0 elsif ($ExtUtils::Liblist::Kid::Config{'lddlflags'} =~ /-R/) { }
92 3 0 unless ("File::Spec"->file_name_is_absolute($thislib))
97 1 2 if $thislib =~ / /
103 0 12 if ($thislib =~ /^-Wl,/)
110 10 2 if ($thislib =~ s/^-l(:)?//) { }
131 0 101 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 99 elsif (-f ($fullname = "$thispth/lib$thislib.$so") and $ExtUtils::Liblist::Kid::Config{'dlsrc'} ne 'dl_dld.xs' || $thislib eq 'm') { }
0 99 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 99 elsif (-f ($fullname = "$thispth/lib$thislib$Config_libext")) { }
0 99 elsif (defined $Config_dlext and -f ($fullname = "$thispth/lib$thislib.$Config_dlext")) { }
0 99 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 99 elsif (-f ($fullname = "$thispth/$thislib$Config_libext")) { }
0 99 elsif (-f ($fullname = "$thispth/lib$thislib.dll$Config_libext")) { }
0 99 elsif ($^O eq 'cygwin' and -f ($fullname = "$thispth/$thislib.dll")) { }
0 99 elsif (-f ($fullname = "$thispth/Slib$thislib$Config_libext")) { }
0 99 elsif ($^O eq 'dgux' and -l ($fullname = "$thispth/lib$thislib$Config_libext") and readlink($fullname) =~ /^elink:/s) { }
0 99 elsif ($custom_name and -f ($fullname = "$thispth/$thislib")) { }
210 0 99 if $verbose
213 0 2 if $verbose
214 2 0 unless $libs_seen{$fullname}++
222 0 2 $^O eq 'aix' ? :
231 2 0 if $is_dyna and not $in_perl and not $ld_run_path_seen{$fullnamedir}++
237 2 0 unless ($in_perl or $ExtUtils::Liblist::Kid::Config{'osname'} eq "next" and $thislib eq 'm' || $thislib eq 'ndbm')
247 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/) { }
261 2 0 if ($is_dyna) { }
265 2 0 unless $in_perl and $^O eq "sunos"
274 8 2 unless $found_lib > 0
278 2 8 if ($found) { }
279 1 7 $give_libs ? :
282 0 2 $give_libs ? :
295 0 0 $give_libs ? :
0 0 unless $potential_libs
317 0 0 if (/^:\w+$/)
318 0 0 if lc $_ eq ":nosearch"
319 0 0 if lc $_ eq ":search"
320 0 0 unless /^:(no)?(search|default)$/i
325 0 0 unless ($search)
326 0 0 unless $GC
327 0 0 if $VC
333 0 0 if (s/^-L// and not -d $_) { }
0 0 elsif (-d $_) { }
338 0 0 unless ("File::Spec"->file_name_is_absolute($_))
349 0 0 unless ($fullname)
356 0 0 if $path
361 0 0 $give_libs ? :
0 0 unless @extralibs
375 0 0 $give_libs ? :
0 0 wantarray ? :
385 0 0 if $libs and not $potential_libs =~ /:nodefault/i
404 0 0 if $VC and $ENV{'LIB'}
405 0 0 if $GC and $ENV{'LIBRARY_PATH'}
418 0 0 if $path
420 0 0 if -f $fullname
439 0 0 unless $lib =~ s/^-l//
440 0 0 if $lib =~ /^lib/ and not $GC
443 0 0 if $no_prefix eq $lib
445 0 0 if $GC
457 0 0 if $lib =~ /\Q$extension\E$/i
463 0 0 if $ExtUtils::Liblist::Kid::Config{'lib_ext'}
464 0 0 if grep {/^\.a$/;} @extensions
465 0 0 unless grep {/^\.lib$/;} @extensions
471 0 0 unless $verbose
481 0 0 $ExtUtils::Liblist::Kid::Config{'ldflags'} =~ m[/Debug]i ? :
490 0 0 if ($self->{'PERL_SRC'})
493 0 0 if (($locspec, $type) = $lib =~ m[^([\w\$-]+)(/\w+)?] and $locspec =~ /perl/i)
494 0 0 if (lc $type eq '/share') { }
0 0 elsif (lc $type eq '/library') { }
498 0 0 if -e $locspec
502 0 0 @crtls ? :
504 0 0 unless ($potential_libs)
505 0 0 if $verbose
506 0 0 $give_libs ? :
534 0 0 if $verbose
539 0 0 if $lib =~ /^-L(.*)/
540 0 0 if $lib =~ /[:>\]]$/
541 0 0 if -d $lib
542 0 0 if $lib =~ /^-l(.*)/
551 0 0 unless (-d $dir)
552 0 0 if $verbose > 1
556 0 0 if $verbose
557 0 0 if ('File::Spec'->file_name_is_absolute($dir)) { }
568 0 0 if (exists $libmap{$lib})
569 0 0 unless length $libmap{$lib}
580 0 0 unless ($lib =~ /\.[^:>\]]*$/)
582 0 0 unless $lib =~ /[:>\]]/
585 0 0 if $verbose
593 0 0 if $verbose > 2
595 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'))) { }
598 0 0 if ($fullname =~ /(?:$so|exe)$/i) { }
0 0 elsif ($fullname =~ /(?:$lib_ext|olb)$/i) { }
0 0 elsif ($fullname =~ /(?:$obj_ext|obj)$/i) { }
613 0 0 unless $fullname =~ /exe;?\d*$/i
622 0 0 unless $fullname =~ /olb;?\d*$/i
632 0 0 unless $fullname =~ /obj;?\d*$/i
634 0 0 if (defined $type)
637 0 0 if $ctype eq "SHR"
640 0 0 if ($ctype)
643 0 0 if $verbose > 1
645 0 0 unless $libs_seen{$fullname}++
652 0 0 if exists $found{'OBJ'}
653 0 0 if exists $found{'OLB'}
654 0 0 if exists $found{'SHR'}
657 0 0 $crtlstr ? :
659 0 0 if $verbose
660 0 0 $give_libs ? :
0 0 wantarray ? :