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