perl/lib/blib.pm

1 package blib;
5 blib - Use MakeMaker's uninstalled version of a package
15 Looks for MakeMaker-like I<'blib'> directory structure starting in
23  use blib;
25  use blib '..';
53      # for the Win32 module because blib.pm would always load the
54      # installed version before @INC gets updated with the blib path.
64    $dir =~ s/blib\z//;
70  # detaint: if the user asked for blib, s/he presumably knew
75  my($blib, $blib_lib, $blib_arch);
78    $blib = File::Spec->catdir($dir, "blib");
79    $blib_lib = File::Spec->catdir($blib, "lib");
80    $blib_arch = File::Spec->catdir($blib, "arch");
82    if (-d $blib && -d $blib_arch && -d $blib_lib)
85      warn "Using $blib\n" if $Verbose;
90  die "Cannot find blib even in $dir\n";