File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5

usr / share / perl5 /

?? ..
?? AnyDBM_File.pm(2.56 KB)
?? Attribute
?? AutoLoader.pm(15.43 KB)
?? AutoSplit.pm(19.18 KB)
?? B
?? Benchmark.pm(30.3 KB)
?? CORE.pod(3.11 KB)
?? CPAN
?? Class
?? Compress
?? Config
?? DB.pm(18.48 KB)
?? DBM_Filter
?? DBM_Filter.pm(14.05 KB)
?? Devel
?? DirHandle.pm(1.52 KB)
?? Dumpvalue.pm(17.14 KB)
?? English.pm(4.65 KB)
?? ExtUtils
?? File
?? FileCache.pm(5.44 KB)
?? FileHandle.pm(6.63 KB)
?? FindBin.pm(4.45 KB)
?? Getopt
?? I18N
?? IO
?? IPC
?? Internals.pod(2.52 KB)
?? Locale
?? Math
?? Memoize
?? Memoize.pm(35.34 KB)
?? Module
?? NEXT.pm(18.4 KB)
?? Net
?? PerlIO.pm(10.21 KB)
?? Pod
?? Safe.pm(24.49 KB)
?? Search
?? SelectSaver.pm(1.05 KB)
?? SelfLoader.pm(17.28 KB)
?? Symbol.pm(4.69 KB)
?? Term
?? Test.pm(29.35 KB)
?? Text
?? Thread
?? Thread.pm(8.09 KB)
?? Tie
?? Time
?? UNIVERSAL.pm(6.44 KB)
?? URI
?? URI.pm(33.97 KB)
?? Unicode
?? User
?? XSLoader.pm(11 KB)
?? _charnames.pm(32.39 KB)
?? autouse.pm(4.14 KB)
?? base.pm(10.72 KB)
?? blib.pm(2.04 KB)
?? bytes.pm(3.67 KB)
?? bytes_heavy.pl(758 B)
?? charnames.pm(20.38 KB)
?? deprecate.pm(3.01 KB)
?? diagnostics.pm(18.59 KB)
?? dumpvar.pl(15.19 KB)
?? encoding
?? feature.pm(16.68 KB)
?? fields.pm(9.27 KB)
?? filetest.pm(3.91 KB)
?? if.pm(3.26 KB)
?? integer.pm(3.18 KB)
?? less.pm(3.13 KB)
?? locale.pm(4.74 KB)
?? meta_notation.pm(2.07 KB)
?? open.pm(7.83 KB)
?? overload
?? overload.pm(52.06 KB)
?? overloading.pm(1.77 KB)
?? perl5db.pl(309 KB)
?? pod
?? sigtrap.pm(7.43 KB)
?? sort.pm(5.94 KB)
?? strict.pm(4.63 KB)
?? subs.pm(848 B)
?? unicore
?? utf8.pm(8.9 KB)
?? utf8_heavy.pl(30.87 KB)
?? vars.pm(2.36 KB)
?? vendor_perl
?? vmsish.pm(4.21 KB)
?? warnings
?? warnings.pm(43.71 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