क्या डीबीआईएक्स :: कक्षाओं के बजाय संग्रहित प्रक्रियाओं के साथ कक्षा का उपयोग किया जा सकता है?

Question

डीबी से पढ़ने की पहुंच मुझे mssql संग्रहीत प्रक्रियाओं के माध्यम से दी गई है जो टेबल या दृश्यों के बजाय परिणाम सेट लौटाती है। लेकिन मैं ओआरएम का उपयोग कर डेटा को पढ़ने में सक्षम होना चाहता हूं।

मैंने कस्टम कॉल के रूप में प्रक्रिया कॉल (उदा। EXEC my_stored_proc ?) करने के लिए DBIx::Class::ResultSource::View का उपयोग करने का प्रयास किया लेकिन यह काम नहीं किया क्योंकि यह प्रक्रिया कॉल को एक चयनित कथन में बदलने की कोशिश की गई।

क्या किसी के पास कोई और सुझाव है?

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 विवरण देखने]

... क्योंकि आपको अपनी परेशानी के लिए ओआरएम के लाभों में से कोई भी लाभ नहीं मिलता है।

Answer 2

निम्न उपाय अपनाते हैं

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