Another solution - maybe not a good one - is this
#!/usr/bin/perl -w
use strict;
use warnings;
use Spiderman qw(shootWeb);
print STDERR shootWeb() . "\n";
package Spiderman;
use base qw(Exporter);
our @EXPORT = qw(shootWeb webStrength);
use DrOctopus ();
sub shootWeb {
return DrOctopus::deflectWeb(); # from DrOctopus
}
sub webStrength {
return 1;
}
package DrOctopus;
use base qw(Exporter);
our @EXPORT = qw(deflectWeb);
use Spiderman ();
sub deflectWeb {
return Spiderman::webStrength(); # from Spiderman
}
1;
...reality must take precedence over public relations, for nature cannot be fooled. - R P Feynmann