perl - 新しいMooseクラスを作成し、実行時にそのクラスのオブジェクトをインスタンス化するにはどうすればよいですか？

Question

を使用してメタクラスを作成した後Moose::Meta::Class->create、そのクラスをメタクラスとして使用して実際のMooseクラスをインスタンス化するにはどうすればよいですか？（メタクラスにもいくつかの役割を適用したいので、メタクラスも作成する必要があります。）

Answer 1

実行時にMooseクラスを構築して調整するで、How do I build a Moose class at runtime, add a method to it, apply a role to it and instantiate it once? How would you approach this?これがこれまたは他のSOの質問に答えているかどうかはわかりませんが、以下をご覧ください。

• MooseX::SingletonMethod

それはあなたが望むことをするかもしれません。または、それが機能する私たちをのぞき見ることが役立つかもしれません.

ドキュメントには、このモジュールの構築に取り組んでいる間に作成したブログ投稿へのリンクが含まれているため、それらも役立つ場合があります。

MooseX::SingletonMethod の簡単なコード例を次に示します。

{
    package Foo;
    use MooseX::SingletonMethod;
    sub bar { say 'bar' }
}

my $baz = Foo->new;
my $bar = Foo->new;

$baz->add_singleton_method( baz => sub { say 'baz' } );

$baz->bar;   # => bar
$bar->bar;   # => bar

$baz->baz;   # => baz
$bar->baz;   # Throws can't find baz error

/I3az/

Answer 2

もちろん、メタクラスはクラスです。そのクラスのインスタンスが必要な場合は、次のようにします。

my $instance = $meta->name->new

$meta がすぐに収集されないようにする必要がある場合もあります。通常、次のようにします。

$meta->add_method( meta => sub { $meta } );

これでメタクラスは保持されますが、注意しないとクラスがリークしてしまいます。これを 1 回だけ行う場合は問題ありません。何千回もやると、トラブルに巻き込まれる可能性があります。

Moose::Meta::Class::create_anon_classまたはのような高レベルのものを使用する方がはるかに優れていますMooseX::Traits。