Hi Monks,

I'm looking for some wisdom regarding inclusion of custom libs in a project. Bear with me, for this problem is a bit trickier than just a simple:

use lib qw(/path/to/my/libs);

In all of my searching, I have not found a good answer for this one, so perhaps the enlightened can assist?

First, the restrictions for this project:

  1. Modules which need to be compiled may NOT be installed.
  2. Custom modules may NOT be added to the system lib paths.
  3. Environment variables may NOT be modified.
  4. The MyApp package can be installed anywhere on a system.

Next, a visual to understand the contents of the project.

~/MyApp
    |_ /1.0
    |_ /1.1
    |_ /1.2
        |_ /bin
            |_ script1.pl
            |_ /util
                |_ script2.pl
        |_ /lib
            |_ /perl
                |_ Module1.pm
                |_ Module2.pm
        |_ /plugins
            |_ /default
                |_ plugin1.pl
            |_ /custom
                |_ plugin2.pl
                |_ plugin3.pl
                |_ /Dir1
                    |_ Dir2
                        |_ plugin4.pl

[download]

Every perl script in /bin and /plugins needs to have access to the custom modules in ~/lib/perl, regardless of how deep into the directory tree the script is.

To tackle this problem, I have been adding the following block to the header of all the scripts. Basically, I climb the directory tree, until I find the toplevel that looks like the version number, "1.2", and then include /lib/perl from there. 

use strict;
use warnings;
use File::Spec;
use Cwd 2.17 qw(realpath);
eval {
  use lib (eval {
    my @dirs = File::Spec->splitdir( 
        (File::Spec->splitpath(realpath($0)))[1] );
    while (scalar(@dirs) and $dirs[-1] !~ /\d+\.\d+/) { pop(@dirs); }
    return File::Spec->join(@dirs, 'lib', 'perl'); }
  );    
  use Module1;
  use Module2;
};
if ($@) { die "Failed to load custom modules.\n"; }

[download]

It works perfectly, but it looks and feels clunky. Also, the eval{} blocks raise eyebrows, and I'd feel better if they weren't there.

Is there a cleaner way to do this? Can I get rid of the eval{} blocks completely? Have I overlooked a much simpler way to do this?

--Many Thanks!

In reply to Creative way to include custom modules without eval? by IronCladLou

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.