conditional modules

[John]

Hi

Can you access modules with a condition, ie

my ($language,$text);
if ($language eq 'English') {use English; $text=new English;}
elsif ($language eq 'German') {use German; $text=new German;}
etc

or is this preferable

use Language qw(english};

I don't want to load all languages when I am going to use only one.

Regards
John

 

[smallpond]

Hi

Can you access modules with a condition, ie

my ($language,$text);
if ($language eq 'English') {use English; $text=new English;}
elsif ($language eq 'German') {use German; $text=new German;}
etc

or is this preferable

use Language qw(english};

I don't want to load all languages when I am going to use only one.

=== foo ===
$pkg = shift;
eval "use $pkg";
MainWindow->new();
MainLoop();

perl foo Tk

This brought up a Tk window so I guess runtime
package binding is fine.

You need to eval the use statement that you want to
do to avoid having all of your packages loaded at
compile time.

 

[Petr Vileta \fidokomik\]

Hi

Can you access modules with a condition, ie

my ($language,$text);
if ($language eq 'English') {use English; $text=new English;}
elsif ($language eq 'German') {use German; $text=new German;}
etc

my ($language,$text);
if ($language eq 'English') {require English; $text=new English;}
elsif ($language eq 'German') {require German; $text=new German;}

 

[John]

Thank you, gentlemen, that was very useful.

Regards
John