Select Code to Download

$ perl -le " use lib do { my @She = qw[ wah diddy diddy dum diddy do ]
+; $She[ rand @She ]; }; print for @INC "
diddy
...
C:/perl/5.12.2/lib/MSWin32-x86-multi-thread
C:/perl/5.12.2/lib
.

use File::Spec;
use File::Basename qw' dirname ';
...
    my $thisd = dirname($thisf);
    use lib File::Spec->catfile( $thisd, File::Spec->updir, 'lib' );
}

use Path::Class;
BEGIN {
...
    my $thisd = $thisf->dir;
    use lib dir( $thisd, '..','lib' );
}

use Path::Class;
use lib dir( __FILE__, '..','..','lib')->absolute->resolve;