OOインターフェースとSingletonインターフェース

このモジュールは OO インターフェースと Singleton インタフェースの二種類のインターフェースを持ちます。

OOインターフェスは

    my $container = Object::Container->new;

などのようにコンストラクタを呼び、その返り値のオブジェクトを介してオブジェクトの登録や取得を行います。この場合登録したオブジェクトはコンテナーオブジェクトごとに独立しています。

例えば

    my $container1 = Object::Container->new;
    my $container2 = Object::Container->new;

などのように複数のコンテナーを使い分けるような使い方ができます。

Singletonインタフェースは

    my $container = Object::Container->instance;

というように明示的にコンストラクタをよばす、クラスに割り当てられた唯一のオブジェクトを使用するインターフェースです。

Singletonインタフェースを使用する場合は、register や get 関数などは

    Object::Container->register('WWW::Mechanize', sub { WWW::Mechanize->new( stack_depth => 1 ) });

というようにすべてクラスメソッドとして使用することができます。Singletonインターフェースで複数のコンテナーを使いたい場合はサブクラス化をして

    MyContainer1->get('WWW::Mechanize');
    MyContainer2->get('WWW::Mechanize');

のようにします。

SingletonインタフェースとEXPORT関数

Singletonインタフェースで、いちいち

    MyContainer->get('WWW::Mechanize');

と書くのがだるい、と言う人のために好きな名前でコンテナをEXPORTできる機能を用意してあります。

    use MyContainer 'obj';

と、use 時にエクスポートしたい関数名を指定します。すると

    obj->register( mech => sub { WWW::Mechanize->new });
    obj->get('mech');
    obj('mech');      # shortcut to obj->get('mech')

などと短い書き方でコンテナーにアクセスできるようになります。

Singletonインタフェースとサブクラス化

Singletonインタフェースのサブクラス内でオブジェクトを登録したいときに

    __PACKAGE__->register( mech => sub { WWW::Mechanize->new } );

と書くのがだるい、と言う人のためにサブクラス化時のインタフェースも用意してあります。

サブクラス化するときに、

    use base 'Object::Container';

とするかわりに

    use Object::Container '-base';

とすると register と言う関数がエクスポートされます。こうすると上記の "__PACKAGE__->register" のかわりに

    register mech => sub { WWW::Mechanize->new };

と書くことができるようになります。

遅延ロードと依存性解決

registerメソッドで登録されたオブジェクトは、初回の get メソッドを実行したときに初めて初期化されます。

    Object::Container->register('WWW::Mechanize', sub { WWW::Mechanize->new }); # ここで WWW::Mechanize->new は実行されない
    my $mech = Object::Container->get('WWW::Mechanize'); # ここで実行される

この機能により大量にクラスが登録されていても、必要な物のみ初期化されるためリソースを大量に消費することがないため永続プロセス以外でも手軽に導入できるでしょう。

また Singleton インタフェースは初期化関数と組み合わせることにより、オブジェクト同士の依存性の解決も行うことができます。

たとえば、HTTP::Cookies オブジェクトに依存した LWP::UserAgent を考えます。このような場合、

    Object::Container->register('HTTP::Cookies', sub { HTTP::Cookies->new( file => '/path/to/cookie.dat' ) });
    Object::Container->register('LWP::UserAgent', sub {
        my $cookies = Object::Container->get('HTTP::Cookies');
        LWP::UserAgent->new( cookie_jar => $cookies );
    });

というように初期化関数のなかで get メソッドをしようすることで依存性の解決が行えます。

上記の場合、

    my $ua = Object::Container->get('LWP::UserAgent');

した場合に LWP::UserAgent と HTTP::Cookies の両方が初期化されます。

もし、登録と同時に初期化したい場合、以下のようにできます。

    Object::Container->register({ class => 'LWP::UserAgent', preload => 1 });

initializer オプションを指定することができます。

    Object::Container->register({ class => 'WWW::Mechanize', initializer => sub {
        my $mech = WWW::Mechanize->new( stack_depth );
        $mech->agent_alias('Windows IE 6');
        return $mech;
    }, preload => 1 });

これは、以下のように書くのと同じです。

    Object::Container->register('WWW::Mechanize', sub {
        my $mech = WWW::Mechanize->new( stack_depth );
        $mech->agent_alias('Windows IE 6');
        return $mech;
    });
    Object::Container->get('WWW::Mechanize');

args オプションを指定した場合は:

    Object::Container->register({ class => 'LWP::UserAgent', args => \@args, preload => 1 });

これは、もうおわかりのように、以下と同じです。

    Object::Container->register('LWP::UserAgent', @args);
    Object::Container->get('LWP::UserAgent');

register( $class, @args )

register( $class_or_name, $initialize_code )

Object::Container にオブジェクトを登録します。

いちばんシンプルな使い方は

    Object::Container->register('WWW::Mechanize');

などのようにクラス名のみを登録する方法です。この場合 get した場合に WWW::Mechanize->new が引数なしで呼ばれます。

new の引数を指定したい場合は

    Object::Container->register('WWW::Mechanize', @constructor_args);

などのように第二引数以降に配列をわたせばそれがそのまま new にわたされます。

new 以外のコンストラクタが必要な場合、他に初期化処理が必要な場合、依存しているモジュールがある場合などは、第二引数にコードリファレンスを渡すことで任意の初期化処理が行えます。

    Object::Container->register('WWW::Mechanize', sub {
        my $mech = WWW::Mechanize->new( stack_depth );
        $mech->agent_alias('Windows IE 6');
        return $mech;
    });

このコードリファレンスではコンテナに格納するオブジェクトを返す必要があります。

またこのように初期化関数を渡す場合、第一引数ではクラス名を与える必要はなく任意の名前を与えることができます。

    Object::Container->register('ua1', sub { LWP::UserAgent->new });
    Object::Container->register('ua2', sub { LWP::UserAgent->new });

などと言った使い方も可能です。

get($class_or_name)

registerメソッドで登録したオブジェクトを取得します。

与える引数はregisterメソッドに与えた第一引数と同じ物を渡します。

ensure_class_loaded($class)

$class がロードされているか確認し、ロードされていなかった場合そのクラスを use してくれるユーティリティ関数です。

初期化関数に依存性を含ませるような場合でその依存モジュールを遅延ロードしたい場合などに使用すると便利です。

load_all

load_all_except(@classes_or_names)

基本的にこのモジュールは必要になるまで（getメソッドが呼ばれるまで）オブジェクトを初期化しませんが、 "Copy-On-Write" や、実行時の速度を重視する場合など、あらかじめオブジェクトを初期化しておきたい場合があるかもしれません。そのような場合には

    Object::Container->load_all;

とすることで全てのオブジェクトを初期化済みにすることができます。

また、特定のオブジェクトだけは初期化したくないという場合、

    Object::Container->load_all_except(qw/Foo Bar/);

などとすると初期化したくないオブジェクト以外の全てのオブジェクトを初期化することも出来ます。 上記の場合は Foo と Bar と言うオブジェクト以外の全てのオブジェクトを初期化します。

register( $class, @args )

register( $class_or_name, $initialize_code )

    register Foo => sub {
        my ($self) = @_;
        $self->ensure_class_loaded('Foo');
        Foo->new;
    };

オブジェクトを登録します。上述したクラス（オブジェクト）メソッドの "register" メソッドとおなじ役割をします。

preload(@classes_or_names)

preload_all

preload_all_except

これらはクラス（オブジェクト）メソッドの "load_all"、"load_all_except" と同じようにつかえる関数で、その名前の通り "preload_all" が "load_all" と、"preload_all_except" が "load_all_except" とそれぞれ対応しています。