テーブルの代わりにストアドプロシージャでDBIx :: Classを使用できますか？

Question

テーブルからまたはビューではなく結果セットを返すmssqlストアドプロシージャを使用して、dbからの読み取りアクセス権が与えられました。しかし、私はORMを使用してデータを読み取ることができるようにしたい。

DBIx::Class::ResultSource::Viewを使用してプロシージャコール（例：EXEC my_stored_proc ?）をカスタムクエリとして使用しようとしましたが、プロシージャコールをSELECT文に変換しようとしたためにこれが機能しませんでした。

他に提案がありますか？

Answer 1

次の操作を行いパラメータを指定して呼び出すにはregister_source

package My::Schema::User; 

    use base qw/DBIx::Class/; 

    # ->load_components, ->table, ->add_columns, etc. 

    # Make a new ResultSource based on the User class 
    my $source = __PACKAGE__->result_source_instance(); 
    my $new_source = $source->new($source); 
    $new_source->source_name('UserFriendsComplex'); 

    # Hand in your query as a scalar reference 
    # It will be added as a sub-select after FROM, 
    # so pay attention to the surrounding brackets! 
    $new_source->name(\<<SQL); 
    (SELECT u.* FROM user u 
    INNER JOIN user_friends f ON u.id = f.user_id 
    WHERE f.friend_user_id = ? 
    UNION 
    SELECT u.* FROM user u 
    INNER JOIN user_friends f ON u.id = f.friend_user_id 
    WHERE f.user_id = ?) 
    SQL 

    # Finally, register your new ResultSource with your Schema 
    My::Schema->register_source('UserFriendsComplex' => $new_source); 

を使用することができません、DBIx ::クラスのコンテキストでストアドプロシージャを実行するための合理的な方法はありません。私の知る限り、この問題を回避するに最も近いものが弱いスープであるデータベース・ハンドル、取得するには、「ORMを使用して」され

：

my @results = $schema->storage->dbh_do(sub{ 
     my ($storage, $dbh, @args) = @_; 
     my $sth = $dbh->prepare('call storedProcNameFooBar()'); 
     my @data; 
     $sth->execute(); 
     while(my $row = $sth->fetchrow_hashref){ 
      push @data, $row; 
     } 
     return @data; 
    },()); 

を[ http://metacpan.org/pod/DBIx::Class::Storage::DBI#dbh_doで詳細を見る]

... ORMの恩恵を受けることはありません。

Answer 2

あなたは

my $friends = [ $schema->resultset('UserFriendsComplex')->search({ 
+}, 
    { 
     bind => [ 12345, 12345 ] 
    } 
) ];