Passing Module parameters to another module

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

Hi!

I want to pass module parameters given to a module 'Foo' to be passed to another module 'Bar'. 'Bar' is not a subclass of 'Foo'. For instance if import the Module with

use Foo ('x');
[download]

The parameter 'x' should be passed to 'Bar' inside of 'Foo':

package Foo;

use Bar ('x'); # this 'x' should not be hard-coded but set dynamically
+ depending on what is passed to 'Foo'.

1;
[download]

I fiddled around with Exporter but could not find a right way.

Comment on Passing Module parameters to another module Select or Download Code

Replies are listed 'Best First'.
Re: Passing Module parameters to another module by almut (Canon) on Feb 19, 2010 at 12:11 UTC
Maybe something like this (if I'm understanding you correctly): `package Bar; use Exporter 'import'; our @EXPORT_OK = qw(x); sub x { print "x(): @_\n"; } 1;` [download] `package Foo; sub import { print "Foo::import(): @_\n"; # debug require Bar; # do whatever you want with the import() args, e.g. shift @_; Bar->import(@_); } 1;` [download] `#!/usr/bin/perl use Foo 'x'; # x() will be imported from Bar into Foo namespace # (as would be done when using a hardcoded "use Bar 'x' +" within Foo) Foo::x('bla'); __END__ $ ./824136.pl Foo::import(): Foo x x(): bla` [download]	[reply] [d/l] [select]
Re: Passing Module parameters to another module by shmem (Chancellor) on Feb 20, 2010 at 12:40 UTC
Do a `require` and `import` for package `Bar`: `package Foo; require Bar; sub import { my $class = shift; # first param is class name if (@_) { Bar->import(shift); # that's passed along # with 'use Foo qw(x);' } } # more stuff... 1;` [download] `package Bar; sub import { my $class = shift; if (@_) { my $x = shift; # passed from Foo warn "$class: got '$x' from ".caller()."\n"; # now do whatever you like with 'x' } } # more stuff... 1;` [download] and then... `#!/usr/bin/perl use Foo qw(blorf);` [download] ...or even `$ perl -MFoo=blorflydick -e 1 Bar: got 'blorflydick' from Foo` [download]	[reply] [d/l] [select]