PR

[perl] インポート・エクスポート

呼び出し元ルーチンから参照できる変数を作るにはどうしたらよいのだろうか?

スポンサードリンク


sub __executeCgi {
my $this = shift;

our $CGI = $this->{CGI};

my $callpkg = caller(2);
{
no strict "refs";
*{"$callpkg\::CGI"} = *{"Tripletail::CGI"};
}

}

$this->{CGI} = undef;
$this;
}


自分で作ったモジュール内に、他のモジュールをラッパさせる(というのだろうか)にはどうすればよいだろうか?


sub newValue {
my $this = shift;

require Tripletail::Value;

Tripletail::Value->_new(@_);
}


コメント

タイトルとURLをコピーしました