use or require ?

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

Greetings monks. I have this piece of code:

use My::AAA;
use My::BBB;
use My::CCC;

my $module    = 'My::' . $name_str;
eval { $obj = $module->new(); };
if ($@) {
    print "Error loading module $module: $@\n";
    exit;
}
$obj->login();
[download]

I would like to put the modules loading dinamically:

eval { use "$module" };
[download]

eval { require "$module" };
[download]

Somehow i'm not getting this to work, any tips ? Thanks in advance

Comment on use or require ? Select or Download Code

Replies are listed 'Best First'.
Re: use or require ? by Corion (Patriarch) on Oct 01, 2007 at 08:51 UTC
Basically, you want: `(my $filename = $module) =~ s-::\|'-/-g; $filename .= ".pm"; require $filename or die "Couldn't load '$filename': $!";` [download] If you want this to be more equivalent to use, wrap it in a BEGIN block.	[reply] [d/l]
Re: use or require ? by jeanluca (Deacon) on Oct 01, 2007 at 09:01 UTC
This is a post I found doing a 'Super Search' "use" vs "require" LuCa	[reply]
Re^2: use or require ? by lima1 (Curate) on Oct 01, 2007 at 09:52 UTC
... and here another recent thread: eval "require $class" seems wrong.	[reply]
Re: use or require ? by valdez (Monsignor) on Oct 01, 2007 at 12:37 UTC
Ciao, in similar cases I use UNIVERSAL::require; from module synopsis: `# This only needs to be said once in your program. require UNIVERSAL::require; # Same as "require Some::Module" my $module = 'Some::Module'; $module->require or die $@; # Same as "use Some::Module" BEGIN { $module->use or die $@ }` [download] Ciao, Valerio	[reply] [d/l]

Back to Seekers of Perl Wisdom