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

Hi all. I'd Like to write something like: use MyPackage qw/arg1 arg2/ ; ... How should I write MyPackage.pm to access the args given ? Thx for help !

Replies are listed 'Best First'.
Re: package parameters
by trammell (Priest) on Apr 01, 2005 at 15:09 UTC
    From perldoc -f use: 
      [use] is exactly equivalent to

    BEGIN { require Module; import Module LIST; }

  except that Module must be a bareword.
    So if you have Bar.pm: 
    package Bar;
sub import {
   warn "Arguments are: @_";
}
1;

    [download]
    When you use Bar, you get: 
    % perl -e 'use Bar qw/abc def/'
Arguments are: Bar abc def at Bar.pm line 6.
[reply]
[d/l]
Re: package parameters
by Golo (Friar) on Apr 01, 2005 at 15:04 UTC
    You need to define an import sub, which will get the arguments to your package. 
    package MyPackage;

sub import {
    my $class = shift;
    print "args: @_\n";    
}

1;

package Main;

use MyPackage qw(arg1 arg2);

    [download]
[reply]
[d/l]
Re: package parameters
by Thilosophy (Curate) on Apr 02, 2005 at 06:07 UTC 
    use MyPackage qw/arg1 arg2/ ;

    [download]
    If this is supposed to export subroutines arg1 and args2, you can use the Exporter standard module: 
    package MyPackage;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(arg1 arg2);  # symbols to export on request

    [download]
    Of course, if you want to do something else with those args, you can get creative with your custom import subroutine as shown by Golo and trammell above.
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom