Re^4: Module forwarding

package ForwardSimpleModule;
require Exporter;
@ISA = qw(Exporter);

use constant FORWARDED => 'SimpleModule';
require do { FORWARDED . '.pm' };

warn;
sub import {
    warn;
    my $exporter = FORWARDED . "->export_to_level(2, @_)";
    my $simple = FORWARDED . "->import(@_)";
    eval $exporter;
    eval $simple if $@;
}
[download]

The above demonstration seems to work where exporter is used and where it isn't and import doesn't require details about the caller. BUT: I still can't get it so that the forwarders filename is the same as the underlying pm and use "use" -- I think import get overwritten in the package namespace. (hence the introduction of ForwardSimpleModule namespace)

Comment on Re^4: Module forwarding Download Code

Replies are listed 'Best First'.
Re^5: Module forwarding by Corion (Patriarch) on Feb 06, 2012 at 17:18 UTC
Why do you want to lie about the filename? This will make debugging your construct horribly bad, as you can't be sure which file to open to find the root cause of a warning or a crash. See perlsyn about comments. The following code should show you how to make Perl claim and a module believe it is loaded from another file: `eval qq[\n#line 2001 ""\ndie 'foo']; print $@;` [download] You might also want to set up `%INC` appropriately.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Module forwarding
by Corion (Patriarch) on Feb 06, 2012 at 17:18 UTC

Why do you want to lie about the filename? This will make debugging your construct horribly bad, as you can't be sure which file to open to find the root cause of a warning or a crash.

See perlsyn about comments. The following code should show you how to make Perl claim and a module believe it is loaded from another file:

eval qq[\n#line 2001 ""\ndie 'foo']; print $@;
[download]

You might also want to set up %INC appropriately.

[reply]
[d/l]
[select]