File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5

usr / share / perl5 /

📁 ..
📄 AnyDBM_File.pm(2.56 KB)
📁 App
📁 Archive
📁 Attribute
📄 AutoLoader.pm(14.66 KB)
📄 AutoSplit.pm(19.18 KB)
📁 B
📄 Benchmark.pm(27.87 KB)
📄 CORE.pod(2.7 KB)
📁 CPAN
📄 CPAN.pm(132.91 KB)
📁 Class
📁 Compress
📁 Config
📄 DB.pm(18.43 KB)
📁 DBM_Filter
📄 DBM_Filter.pm(14.06 KB)
📁 Devel
📄 DirHandle.pm(1.52 KB)
📄 Dumpvalue.pm(16.5 KB)
📁 Encode
📄 English.pm(4.34 KB)
📁 ExtUtils
📁 File
📄 FileCache.pm(5.44 KB)
📄 FileHandle.pm(6.62 KB)
📁 Filter
📄 FindBin.pm(4.45 KB)
📁 Getopt
📁 HTTP
📁 I18N
📁 IO
📁 IPC
📁 JSON
📁 LWP
📄 LWP.pm(21.15 KB)
📁 Locale
📁 Log
📁 Math
📁 Memoize
📄 Memoize.pm(34.4 KB)
📁 Module
📄 NEXT.pm(18.05 KB)
📁 Net
📁 Object
📁 Package
📁 Perl
📁 PerlIO
📄 PerlIO.pm(10.19 KB)
📁 Pod
📄 Safe.pm(24.03 KB)
📁 Search
📄 SelectSaver.pm(1.05 KB)
📄 SelfLoader.pm(16.97 KB)
📄 Symbol.pm(4.68 KB)
📁 Term
📁 Test
📄 Test.pm(28.13 KB)
📁 Text
📁 Thread
📄 Thread.pm(8.09 KB)
📁 Tie
📁 Time
📄 UNIVERSAL.pm(6.97 KB)
📁 URI
📄 URI.pm(33.01 KB)
📁 Unicode
📁 User
📁 Version
📄 XSLoader.pm(9.99 KB)
📄 _charnames.pm(29.8 KB)
📄 autouse.pm(4.14 KB)
📄 base.pm(6.37 KB)
📄 bigint.pm(17.44 KB)
📄 bignum.pm(18.23 KB)
📄 bigrat.pm(14.11 KB)
📄 blib.pm(2.04 KB)
📄 bytes.pm(2.96 KB)
📄 bytes_heavy.pl(758 B)
📄 charnames.pm(19.22 KB)
📄 deprecate.pm(3.01 KB)
📄 diagnostics.pm(17.96 KB)
📄 dumpvar.pl(14.96 KB)
📁 encoding
📄 feature.pm(11.06 KB)
📄 fields.pm(9.28 KB)
📄 filetest.pm(3.91 KB)
📄 if.pm(1.13 KB)
📄 integer.pm(3.19 KB)
📄 less.pm(3.13 KB)
📄 locale.pm(2.72 KB)
📄 lwpcook.pod(9.05 KB)
📄 lwptut.pod(24.89 KB)
📄 open.pm(7.83 KB)
📁 overload
📄 overload.pm(52.66 KB)
📄 overloading.pm(1.77 KB)
📄 perl5db.pl(302.79 KB)
📄 perlfaq.pm(94 B)
📁 pod
📄 sigtrap.pm(7.46 KB)
📄 sort.pm(5.95 KB)
📄 strict.pm(3.84 KB)
📄 subs.pm(845 B)
📁 unicore
📄 utf8.pm(7.6 KB)
📄 utf8_heavy.pl(30.1 KB)
📄 vars.pm(2.3 KB)
📁 vendor_perl
📄 vmsish.pm(4.22 KB)
📁 warnings
📄 warnings.pm(18.34 KB)

Editing: 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";
}

X7ROOT File Manager

Editing: blib.pm

Upload File

Create Folder