Branch Coverage

lib/ExtUtils/Liblist/Kid.pm
Criterion Covered Total %
branch 54 254 21.2


line true false branch
23 0 168 if ($^O eq 'VMS') { }
0 168 elsif ($^O eq 'MSWin32') { }
30 8 6 unless length $libpth
35 20 2 if (-d $c->[0])
40 1 0 if (-d $sofar)
52 0 0 if ($^O =~ /os2|android/ and $ExtUtils::Liblist::Kid::Config{'perllibs'})
57 0 0 if $potential_libs
60 1 153 $give_libs ? :
154 14 unless $potential_libs
61 0 14 if $verbose
64 14 0 defined $ExtUtils::Liblist::Kid::Config{'perllibs'} ? :
81 5 9 if ($ExtUtils::Liblist::Kid::Config{'gccversion'})
87 0 14 if ($^O eq "darwin")
89 0 0 if $potential_libs =~ s/(^|\s)(-(?:weak_|reexport_|lazy_)?framework)\s+(\S+)/$1-Wl,$2 -Wl,$3/g
90 0 0 if $potential_libs =~ s/(^|\s)(-F)\s*(\S+)/$1-Wl,$2 -Wl,$3/g
97 6 16 if ($thislib =~ s/^(-[LR]|-Wl,-R|-Wl,-rpath,)//)
99 0 6 unless (-d $thislib)
100 0 0 if $verbose
105 0 6 if ($ptype eq "-R" or $ptype =~ /^-Wl,-[Rr]/)
106 0 0 if ($ExtUtils::Liblist::Kid::Config{'lddlflags'} =~ /-Wl,-[Rr]/) { }
0 0 elsif ($ExtUtils::Liblist::Kid::Config{'lddlflags'} =~ /-R/) { }
113 6 0 unless ("File::Spec"->file_name_is_absolute($thislib))
118 1 5 if $thislib =~ / /
124 0 16 if ($thislib =~ /^-Wl,/)
131 14 2 if ($thislib =~ s/^-l(:)?//) { }
152 0 56 if (@fullname = $self->lsdir($thispth, "^\Qlib$thislib.$so.\E[0-9]+") or @fullname = $self->lsdir($thispth, "^\Qlib$thislib.\E[0-9]+\Q.$so\E")) { }
5 51 elsif (-f ($fullname = "$thispth/lib$thislib.$so")) { }
0 51 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 51 elsif (-f ($fullname = "$thispth/lib$thislib$Config_libext")) { }
0 51 elsif (defined $Config_dlext and -f ($fullname = "$thispth/lib$thislib.$Config_dlext")) { }
0 51 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 51 elsif (-f ($fullname = "$thispth/$thislib$Config_libext")) { }
0 51 elsif (-f ($fullname = "$thispth/lib$thislib.dll$Config_libext")) { }
0 51 elsif ($^O eq 'cygwin' and -f ($fullname = "$thispth/$thislib.dll")) { }
0 51 elsif (-f ($fullname = "$thispth/Slib$thislib$Config_libext")) { }
0 51 elsif ($^O eq 'dgux' and -l ($fullname = "$thispth/lib$thislib$Config_libext") and readlink($fullname) =~ /^elink:/s) { }
0 51 elsif ($custom_name and -f ($fullname = "$thispth/$thislib")) { }
230 0 51 if $verbose
233 0 5 if $verbose
234 5 0 unless $libs_seen{$fullname}++
242 0 5 $^O eq 'aix' ? :
251 5 0 if $is_dyna and not $in_perl and not $ld_run_path_seen{$fullnamedir}++
255 5 0 unless $in_perl
258 5 0 if ($is_dyna) { }
262 5 0 unless $in_perl and $^O eq "sunos"
270 9 5 unless $found_lib > 0
274 1 8 $give_libs ? :
9 5 unless $found
275 0 5 $give_libs ? :
287 0 0 $give_libs ? :
0 0 unless $potential_libs
309 0 0 if (/^:\w+$/)
310 0 0 if lc $_ eq ":nosearch"
311 0 0 if lc $_ eq ":search"
312 0 0 unless /^:(no)?(search|default)$/i
317 0 0 unless ($search)
318 0 0 unless $GC
319 0 0 if $VC
325 0 0 if (s/^-L// and not -d $_) { }
0 0 elsif (-d $_) { }
330 0 0 unless ("File::Spec"->file_name_is_absolute($_))
341 0 0 unless ($fullname)
348 0 0 if $path
353 0 0 $give_libs ? :
0 0 unless @extralibs
367 0 0 $give_libs ? :
0 0 wantarray ? :
386 0 0 if $VC and $ENV{'LIB'}
387 0 0 if $GC and $ENV{'LIBRARY_PATH'}
388 0 0 if $ENV{'SYSTEMROOT'}
401 0 0 if $path
403 0 0 if -f $fullname
422 0 0 unless $lib =~ s/^-l//
423 0 0 if $lib =~ /^lib/ and not $GC
426 0 0 if $no_prefix eq $lib
428 0 0 if $GC
440 0 0 if $lib =~ /\Q$extension\E$/i
447 0 0 if grep {/^\.a$/;} @extensions
448 0 0 unless grep {/^\.lib$/;} @extensions
454 0 0 unless $verbose
464 0 0 $ExtUtils::Liblist::Kid::Config{'ldflags'} =~ m[/Debug]i ? :
473 0 0 if ($self->{'PERL_SRC'})
476 0 0 if (($locspec, $type) = $lib =~ m[^([\w\$-]+)(/\w+)?] and $locspec =~ /perl/i)
477 0 0 if (lc $type eq '/share') { }
0 0 elsif (lc $type eq '/library') { }
481 0 0 if -e $locspec
485 0 0 @crtls ? :
487 0 0 unless ($potential_libs)
488 0 0 if $verbose
489 0 0 $give_libs ? :
517 0 0 if $verbose
522 0 0 if $lib =~ /^-L(.*)/
523 0 0 if $lib =~ /[:>\]]$/
524 0 0 if -d $lib
525 0 0 if $lib =~ /^-l(.*)/
534 0 0 unless (-d $dir)
535 0 0 if $verbose > 1
539 0 0 if $verbose
540 0 0 if ('File::Spec'->file_name_is_absolute($dir)) { }
551 0 0 if (exists $libmap{$lib})
552 0 0 unless length $libmap{$lib}
563 0 0 unless ($lib =~ /\.[^:>\]]*$/)
565 0 0 unless $lib =~ /[:>\]]/
568 0 0 if $verbose
576 0 0 if $verbose > 2
578 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'))) { }
581 0 0 if ($fullname =~ /(?:$so|exe)$/i) { }
0 0 elsif ($fullname =~ /(?:$lib_ext|olb)$/i) { }
0 0 elsif ($fullname =~ /(?:$obj_ext|obj)$/i) { }
596 0 0 unless $fullname =~ /exe;?\d*$/i
605 0 0 unless $fullname =~ /olb;?\d*$/i
615 0 0 unless $fullname =~ /obj;?\d*$/i
617 0 0 if (defined $type)
620 0 0 if $ctype eq "SHR"
623 0 0 if ($ctype)
626 0 0 if $verbose > 1
628 0 0 unless $libs_seen{$fullname}++
635 0 0 if exists $found{'OBJ'}
636 0 0 if exists $found{'OLB'}
637 0 0 if exists $found{'SHR'}
640 0 0 $crtlstr ? :
642 0 0 if $verbose
643 0 0 $give_libs ? :
0 0 wantarray ? :