¿Se puede utilizar DBIx :: Class con procedimientos almacenados en lugar de tablas?

Question

El acceso para leer desde el archivo db me ha sido dado a través de mssql procedimientos almacenados que devuelven conjuntos de resultados en lugar de tablas o vistas. Pero quiero poder leer los datos usando ORM.

Intenté usar DBIx::Class::ResultSource::View para hacer la llamada al procedimiento (por ejemplo, EXEC my_stored_proc ?) como una consulta personalizada, pero esto no funcionó porque intentó convertir la llamada al procedimiento en una instrucción select.

¿Alguien tiene otra sugerencia?

Answer 1

No, no hay manera razonable para ejecutar un procedimiento almacenado en el contexto de DBIx :: Clase.

Por lo que yo puedo decir, lo más parecido a una solución es "usar el ORM" para obtener un identificador de base de datos, que es débil sopa:

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; 
    },()); 

[ver detalles en http://metacpan.org/pod/DBIx::Class::Storage::DBI#dbh_do]

... ya que no obtiene ninguno de los beneficios de un ORM para su problema.

Answer 2

Puede utilizar 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); 

Para llamar con parámetros haga lo siguiente

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