Что такое синтаксис DBIx :: Class для синтаксиса CASE WHEN ... THEN SQL?

Question

Кто-нибудь знает, что это DBIx :: Class эквивалент SQL запроса, такие как:

ВЫБОР cdr_id, случай, когда service_id = 'GPRS' THEN 'КБ' КОГДА service_id = 'SMS' THEN 'SMS' END AS блок FROM ...

Благодаря

Answer 1

my $rs = $schema->resultset('table')-> 
    search_rs({} , 
       { '+columns' => { 
        unit => 
         \do { "CASE WHEN me.service_id='GPRS' THEN 'KB' " . 
           "WHEN me.service_id='SMS' THEN 'SMS' END" } 
       }) ; 

Что-то вдоль этой линии должны работать.

Answer 2

Создать таблицу "service_units" населен:

service | unit 
--------+----- 
GPRS | KB 
SMS  | SMS 

затем

SELECT 
    cdr.cdr_id, service_units.unit 
FROM 
    cdr INNER JOIN service_units ON cdr.service_id = service_units.service 

затем перевести это в DBIx :: Class говорят.

Answer 3

Другой способ решения сложных запросов, чтобы определить их в DBIx::Class::ResultSource::View так:

package My::Schema::Result::ComplexQuery 
use strict; 
use warnings; 
use base qw/DBIx::Class::Core/; 

__PACKAGE__->table_class('DBIx::Class::ResultSource::View'); 
__PACKAGE__->table('tablename'); 
__PACKAGE__->result_source_instance->is_virtual(1); 
__PACKAGE__->result_source_instance->view_definition(
    q[ 
     SELECT cdr_id, 
     CASE WHEN service_id = 'GPRS' THEN 'KB' WHEN service_id = 'SMS' THEN 'SMS' END AS unit 
     FROM table 
    ] 
); 

, то вы можете назвать его как бы вы назвали DBIx :: классы нормально, и вы получите DBIx: Класс :: ResultSet объект (который не позволит обновлять и удалять, хотя):

my $pruned_cdr = $schema->resultset('ComplexQuery')->search({}, { ... }); 

хорошая вещь об этом подходе является то, что она позволяет сложных запросов (например, когда у вас есть несколько сложные соединения или объединения, суб выбирает и т. д.), которые будут скрыты от вашего кода в ResultSource :: Vi ew, поэтому вы скрываете сочетание синтаксиса SQL и объектов