Как преобразовать этот SQL-запрос с помощью COUNT, SUM, CASE и BETWEEN в Perl DBIx :: Class?

Question

Как я могу преобразовать этот SQL-запрос в Perl DBIx::Class?

SELECT COUNT(*) AS num_grads, 
     SUM(CASE WHEN employment_status = 1 THEN 1 ELSE 0 END) AS num_employed 
    FROM students 
WHERE status = 6 -- 6 means they graduated 
    AND grad_date BETWEEN Convert(datetime, ?) AND Convert(datetime, ?) 

Answer 1

Предполагая, что вы имеете в виду DBIx :: Class, то я бы, вероятно, пойти на что-то вроде:

my $rs = My::Schema->resultset('Students') # 
    ->search({ 
     status => 6, 
     grad_date => { 'between' => [ $start_dt, $end_dt ] }, 
    }); 

my $num_grads = $rs->count(); 
my $num_employed = $rs->search({ employment_status => 1 })->count(); 

Конечно бит даты и времени будет зависеть от ваших форматов даты и времени, будь вы автоматически надувать/deflating datetimes etc