0

永続性の抽象化にRose::DBを使用するperlアプリケーションを作成していますが、構成ファイルの値を使用してRose::DBサブクラスを初期化する際に問題が発生しています。

ドキュメントには、次のようなハードコードされた例が常に示されています。

# Register your lone data source using the default type and domain
__PACKAGE__->register_db(
  driver   => 'pg',
  database => 'my_db',
  host     => 'localhost',
  username => 'joeuser',
  password => 'mysecret',
);

ただし、保守性のために、実行時に別の構成ファイルからこれらの値を入力したいと思います。

使用されている構成ファイル（Config :: General format）セクション：

<database> 
    active_domain       development

    <db_domain development>
        db_driver       mysql
        db_name         stats_dev
        db_host         localhost
        db_user         stats_dev
        db_password     stats_dev
    </db_domain>
    <db_domain production>
        db_driver       mysql
        db_name         stats_prd
        db_host         localhost
        db_user         stats_prd
        db_password     stats_prd
    </db_domain>
</database>

My Rose :: DBサブクラス、初期化メソッド付き：

package Utils::DBUtils;

use strict;
use base qw(Rose::DB);

__PACKAGE__->use_private_registry;

sub registerAllDBs {
    my ($self,$config_obj) = @_;
    my $db_config = $config_obj->getDatabaseSection(); ## subconfig starts here
    my $def_domain = $db_config->{"active_domain"};

    __PACKAGE__->default_domain($def_domain);
    __PACKAGE__->default_type('main');

    my $db_domains = $db_config->{'db_domain'};
    foreach my $domain (keys %$db_domains) {
        my $domain_conf = $db_domains->{$domain};

        __PACKAGE__->register_db(
            domain => $domain,
            type => __PACKAGE__->default_type(),
            driver   => $domain_conf->{'db_driver'},
            database => $domain_conf->{'db_name'},
            host     => $domain_conf->{'db_host'},
            username => $domain_conf->{'db_user'},
            password => $domain_conf->{'db_password'}
        );          
    }
}
1;

次に、メインスクリプトで、メソッドを1回呼び出して、すべてのデータソースを登録します。

    Utils::DBUtils->registerAllDBs($conf);

私の永続オブジェクトはすべて、DBオブジェクトを次のように初期化するPersistentObjectパッケージから継承します。

    sub init_db { Utils::DBUtils->new() }

ただし、これは期待どおりに機能しません。次のようなコンパイル時エラーが発生します。

    No database information found for domain 'default' and type 'default' and no driver type specified in call to Utils::DBUtils->new(...) at PersistentObject.pm line 9

問題は、Rose :: DBがコンパイル時に完全な構成データを持っていることを想定していることです。これは、構成ファイルから取得されるため、提供できません。

ここで何かが足りませんか？Rose :: DBオブジェクトを動的に初期化することはできませんか？

4

1 に答える 1

0

Rose::DB サブクラスには、コンパイル時に少なくとも 1 つの register_db ステートメントが必要なようです。

（醜い）解決策は追加することでした

__PACKAGE__->register_db(
  driver   => 'mysql',
  database => 'fake',
  host     => 'localhost',
  username => 'fake',
  password => 'fake'
);

パッケージ定義に。

于 2013-03-12T16:54:34.970 に答える