How do I include Tk package when I store it in the same directory as my script
I usually unshift the paths into @INC on startup. Something like this should do the trick:
#!/usr/bin/perl -w
# First, do the usual dance of the stricture
#---AUTOPRAGMASTART---
use 5.012;
use strict;
use warnings;
use English qw( -no_match_vars );
use Carp;
#---AUTOPRAGMAEND---
# Immediately after that, see of we need to spice
# up @INC
BEGIN {
if($ARGV[1] eq "--debug") {
print("Development INC activated\n\n");
unshift @INC, "/home/cavac/src/maplat_prodit/lib";
unshift @INC, "/home/cavac/src/maplat_framework/lib";
}
}
# Only after that, "use" the modules that could be in our debug path
use Maplat::Web;
use Maplat::Web::ProdIT;
use XML::Simple;
After that, the usual loading of modules works with a small difference: perl looks into the paths you unshifted first. If it doesn't find what it's looking for it goes on to whatever your systems default paths are. If it still doesn't find it, it reports an error.
Don't use '#ff0000':
use Acme::AutoColor; my $redcolor = RED();
All colors subject to change without notice.
|