Re^2: Upgrading Perl codebase of older Perl version

[cavac]

BEGIN {
    unshift @INC, "/some/path/Net-Clacks/lib";
    unshift @INC, "/another/path/My-Secret-Module/lib";
};
use Net::Clacks;
use My::Secret::Module;

At least that's the variant i use when debugging. (Original code checks for the '--debug' flag and only unshifts the uninstalled paths if that is set).

[NERDVANA]

That works too. I prefer more like

#! /bin/sh
exec perl -I /some/path/Net-Clacks/lib -I /another/path/My-Secret-Modu
+le/lib myapp.pl "$@"

in a file named debug_myapp.pl, which helps keep my temporary local debugging stuff out of the committed code of the project.

[cavac]

My full BEGIN checks for the "--debug" command line switch to enable the INC modifications, disable some caching/precompression algorithms (for faster startup) and also enable extra debug output:

...
use Array::Contains;
...
our $isDebugging;

BEGIN {
    if(contains('--debug', \@ARGV)) {
        print("Development INC activated\n\n");

        my $uname = 'cavac';
        if(defined($ENV{PC_LINUXUSER}) && $ENV{PC_LINUXUSER} ne '') {
            $uname = $ENV{PC_LINUXUSER};
        }

        unshift @INC, "/home/$uname/src/Net-Clacks/lib";
        unshift @INC, "/home/$uname/src/pagecamel_framework/lib";
        unshift @INC, "/home/$uname/src/pagecamel_er_base/lib";
        $isDebugging = 1;
    } else {
        $isDebugging = 0;
    }
}
...
my $backend = PageCamel::CMDLine::WebBackend->new($isDebugging, $confi
+gfile);
$backend->run;
...