Na}{

File Content: `blib.pm`

package blib;

=head1 NAME

blib - Use MakeMaker's uninstalled version of a package

=head1 SYNOPSIS

 perl -Mblib script [args...]

 perl -Mblib=dir script [args...]

=head1 DESCRIPTION

Looks for MakeMaker-like I<'blib'> directory structure starting in
I<dir> (or current directory) and working back up to five levels of '..'.

Intended for use on command line with B<-M> option as a way of testing
arbitrary scripts against an uninstalled version of a package.

However it is possible to :

 use blib;
 or
 use blib '..';

etc. if you really must.

=head1 BUGS

Pollutes global name space for development only task.

=head1 AUTHOR

Nick Ing-Simmons nik@tiuk.ti.com

=cut

use Cwd;
use File::Spec;

use vars qw($VERSION $Verbose);
$VERSION = '1.06';
$Verbose = 0;

sub import
{
 my $package = shift;
 my $dir;
 if ($^O eq "MSWin32" && -f "Win32.xs") {
     # We don't use getcwd() on Windows because it will internally
     # call Win32::GetCwd(), which will get the Win32 module loaded.
     # That means that it would not be possible to run `make test`
     # for the Win32 module because blib.pm would always load the
     # installed version before @INC gets updated with the blib path.
     chomp($dir = `cd`);
 }
 else {
     $dir = getcwd;
 }
 if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/\z--; }
 if (@_)
  {
   $dir = shift;
   $dir =~ s/blib\z//;
   $dir =~ s,/+\z,,;
   $dir = File::Spec->curdir unless ($dir);
   die "$dir is not a directory\n" unless (-d $dir);
  }

 # detaint: if the user asked for blib, s/he presumably knew
 # what s/he wanted
 $dir = $1 if $dir =~ /^(.*)$/;

 my $i = 5;
 my($blib, $blib_lib, $blib_arch);
 while ($i--)
  {
   $blib = File::Spec->catdir($dir, "blib");
   $blib_lib = File::Spec->catdir($blib, "lib");
   $blib_arch = File::Spec->catdir($blib, "arch");

   if (-d $blib && -d $blib_arch && -d $blib_lib)
    {
     unshift(@INC,$blib_arch,$blib_lib);
     warn "Using $blib\n" if $Verbose;
     return;
    }
   $dir = File::Spec->catdir($dir, File::Spec->updir);
  }
 die "Cannot find blib even in $dir\n";
}

1;

Name	Size	Permission
B	---	0755
Class	---	0755
Compress	---	0755
Config	---	0755
DBM_Filter	---	0755
ExtUtils	---	0755
File	---	0755
Getopt	---	0755
I18N	---	0755
IO	---	0755
IPC	---	0755
Math	---	0755
Net	---	0755
Pod	---	0755
Search	---	0755
Term	---	0755
Text	---	0755
Thread	---	0755
Tie	---	0755
Time	---	0755
URI	---	0755
Unicode	---	0755
User	---	0755
encoding	---	0755
overload	---	0755
pod	---	0755
unicore	---	0755
vendor_perl	---	0755
warnings	---	0755
AnyDBM_File.pm	2618 bytes	0644
AutoLoader.pm	15797 bytes	0644
AutoSplit.pm	19637 bytes	0644
Benchmark.pm	31025 bytes	0644
CORE.pod	3188 bytes	0644
DB.pm	18922 bytes	0644
DBM_Filter.pm	14385 bytes	0644
DirHandle.pm	1556 bytes	0644
Dumpvalue.pm	17556 bytes	0644
English.pm	4761 bytes	0644
FileCache.pm	5572 bytes	0644
FileHandle.pm	6784 bytes	0644
FindBin.pm	4561 bytes	0644
Internals.pod	2576 bytes	0644
NEXT.pm	18846 bytes	0644
PerlIO.pm	10459 bytes	0644
Safe.pm	25082 bytes	0644
SelectSaver.pm	1076 bytes	0644
Symbol.pm	4799 bytes	0644
Thread.pm	8287 bytes	0644
UNIVERSAL.pm	6594 bytes	0644
URI.pm	34790 bytes	0644
XSLoader.pm	11267 bytes	0644
_charnames.pm	33166 bytes	0644
autouse.pm	4238 bytes	0644
base.pm	10980 bytes	0644
blib.pm	2086 bytes	0644
bytes.pm	3754 bytes	0644
bytes_heavy.pl	758 bytes	0644
charnames.pm	20867 bytes	0644
deprecate.pm	3079 bytes	0644
diagnostics.pm	19038 bytes	0644
dumpvar.pl	15555 bytes	0644
feature.pm	17085 bytes	0644
fields.pm	9489 bytes	0644
filetest.pm	4003 bytes	0644
if.pm	3340 bytes	0644
integer.pm	3254 bytes	0644
less.pm	3204 bytes	0644
locale.pm	4855 bytes	0644
meta_notation.pm	2117 bytes	0644
overload.pm	53314 bytes	0644
overloading.pm	1808 bytes	0644
perl5db.pl	316420 bytes	0644
sigtrap.pm	7606 bytes	0644
sort.pm	6081 bytes	0644
strict.pm	4738 bytes	0644
subs.pm	848 bytes	0644
utf8.pm	9116 bytes	0644
utf8_heavy.pl	31615 bytes	0644
vars.pm	2414 bytes	0644
vmsish.pm	4313 bytes	0644
warnings.pm	44756 bytes	0644

File Content: blib.pm

File Content: `blib.pm`