Re^4: How to pass an argument to a Module?

I just tried it on a simple package and it works :o)
You're right, as it's not a class i'm doing:

use Mod;
Mod::initialize('argument');
[download]

It is more simple than the previous solutions, and does what i need. Thank you !

It is less 'elegant' though : there is an additional line of code to put in the client code, each time.
If someone knows how to use IMPORT i'm still interested in learning.

Comment on Re^4: How to pass an argument to a Module? Download Code

Replies are listed 'Best First'.
Re^5: How to pass an argument to a Module? by tobyink (Canon) on Sep 09, 2012 at 21:29 UTC
Despite the Perl6::Export::Attrs pod, IMPORT should just be a plain old sub. `sub IMPORT { ... }` [download] Here's a full example: `use 5.010; use strict; { package Local::MyTest; no thanks; use Perl6::Export::Attrs; sub foobar :Export(:DEFAULT) { return 1; } sub IMPORT { say "in the IMPORT block! Got: @_"; } } use Local::MyTest qw(1 2 3 :DEFAULT); say "YEAH!" if foobar();` [download] `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: How to pass an argument to a Module?
by tobyink (Canon) on Sep 09, 2012 at 21:29 UTC

Despite the Perl6::Export::Attrs pod, IMPORT should just be a plain old sub.

sub IMPORT { ... }
[download]

Here's a full example:

use 5.010;
use strict;

{
    package Local::MyTest;
    no thanks;
    use Perl6::Export::Attrs;
    
    sub foobar :Export(:DEFAULT) {
        return 1;
    }
    
    sub IMPORT {
        say "in the IMPORT block! Got: @_";
    }
}

use Local::MyTest qw(1 2 3 :DEFAULT);
say "YEAH!" if foobar();
[download]

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

[reply]
[d/l]
[select]