[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(@_);
}


関連記事

スポンサードリンク

Comments

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です