Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

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

by mascip (Pilgrim)
on Sep 09, 2012 at 17:01 UTC ( #992610=note: print w/ replies, xml ) Need Help??


in reply to Re^3: How to pass an argument to a Module?
in thread 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');

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
Re^5: How to pass an argument to a Module?
by tobyink (Abbot) on Sep 09, 2012 at 21:29 UTC

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

    sub IMPORT { ... }

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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://992610]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (11)
As of 2014-12-18 10:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (49 votes), past polls