hmeharward has asked for the wisdom of the Perl Monks concerning the following question:

I've created a new module to use with my driver program but the driver program is already using subroutines from another module (not created by me) that I'd like to also use. How to do include the subroutines from both modules? I tried something like below but that only includes the functions from the first module.

use lib "$codes_dir";
require ($codes_dir . "/perl_libs/perl_db_interface.pl");

use lib "$runner_lib";
require ($runner_lib . "/runner_libs/CodesModule.pm");

[download]

Replies are listed 'Best First'.
Re: Using Multiple Modules
by choroba (Cardinal) on Jan 19, 2016 at 23:10 UTC
    Specify the whole path as "lib", and only the file as "required". As use executes at compile time, be sure to set the variables in a BEGIN block: 
    my ($codes_dir, $runner_lib);
BEGIN {
    $codes_dir  = '...';
    $runner_lib = '...';
}
use lib "$codes_dir/perl_libs", "$runner_lib/runner_libs";
require 'perl_db_interface.pl';
require 'CodesModule.pm';

    [download]

    Note that normally, you shouldn't require files but packages: 

    require CodesModule;

    [download]

    Why don't you use them directly, anyway? 

    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

    [download]
[reply]
[d/l]
[select]

      Thank you! I will try this instead. I was a little confused on what should be required but this clears things up!

[reply]

      Everytime I've tried to use them directly I haven't been successful. The code compiles but stops when it gets to the first subroutine

[reply]
        How does the .pm export its subroutines? If it uses Exporter, you need to run 
        require CodesModule;
'CodesModule'->import;

        [download]

        Or you might even need to name the subroutines as the import's parameters if the module doesn't use @EXPORT but @EXPORT_OK.

        Update: if you switched to 

        use CodesModule;

        [download]

        you need to name the subs for @EXPORT_OK in this way: 

        use CodesModule qw{ func1 func2 };

        [download]
        ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

        [download]
[reply]
[d/l]
[select]
Re: Using Multiple Modules
by Anonymous Monk on Jan 20, 2016 at 00:36 UTC
[reply]

Back to Seekers of Perl Wisdom