- 502 名前：デフォルトの名無しさん mailto:sage [2009/09/19(土) 22:41:31 ]
- >>499
こうすれば引数の内容をmainでも参照できるようになるよ。
use strict;
use warnings;
BEGIN {
package Test::Simple;
sub import {
{
no strict 'refs';
@{caller().'::test_args'} = @_[1..$#_];
}
goto &{Test::Builder::Module::import};
}
}
use Test::Simple tests => 3;
our @test_args;
print "args = @test_args\n";
