Can I retry "use" when module load fail ?

[exilepanda]

Hi monks,

It happens to me that when I program CGI scripts with frames or iframes, it throws 500 error by random time; however, if I reload that single frame again, it works normally. I checked the log, and it logged sort of module load fail records. I perceive that's kind of upper network connection limit from my WinXP-Pro, or some flock states triggers these errors.

Anyway, I am looking for if there's anyway I can do something like this :

eval {
  use stict;
  use warnings;
  use This;
  use That;
};

while ( $@ ) {
  eval {
    use stict;
    use warnings;
    use This;
    use That;
  }
}
# rest of my code in main

Since I know the use statement is run first then everything else, so this code won't work. But is that anything else I can do about it? </code>

[Athanasius]

From the documentation for use:

use Module LIST ... is exactly equivalent to


BEGIN { require Module; Module->import( LIST ); }

So, simply convert any use statements that might fail into the equivalent require statements, and your strategy of testing them dynamically using eval will then work OK.

(BTW, there should be no need to test the pragmas use strict and use warnings in this way.)

Hope that helps,

[exilepanda]

Thanks answering!! However I ran in another problem, simplified as follow. Say that I have a module CommonPiece

package CommonPiece;
require Exporter;
our @ISA =qw/Exporter/;
our @EXPORT =qw/htmlStyle/;

sub htmlStyle {
  print "<style>...</style>";
}
1;
__END__

Now in main

use CommonPiece;
htmlStyle; # this works

However, if I change to :

BEGIN {
  require CommonPiece;
}

htmlStyle; 
#Undefined subroutine &main::htmlStyle called at /...path/

What did I missed?

[NetWallah]

You missed the "import" part noted in Athanasius's post.