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

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'

Comment on Re^5: How to pass an argument to a Module? Select or Download Code