1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
# $Id$
package IngredientsWeighted;
use strict;
use base qw( Data::ObjectDriver::BaseView );
use DodTestUtil;
use Data::ObjectDriver::Driver::DBI;
use Data::ObjectDriver::SQL;
__PACKAGE__->install_properties({
columns => [ 'ingredient_name', 'c' ],
driver => Data::ObjectDriver::Driver::DBI->new(
dsn => DodTestUtil::dsn('global'),
pk_generator => \&generate_pk,
),
});
sub base_statement {
my $class = shift;
my $stmt = Data::ObjectDriver::SQL->new;
$stmt->add_select('MAX(ingredients.name)' => 'ingredient_name');
$stmt->add_select('COUNT(*)' => 'c');
$stmt->from([ 'ingredient2recipe', 'ingredients' ]);
$stmt->add_where('ingredients.id' => \'= ingredient2recipe.ingredient_id');
$stmt->group({ column => 'ingredient2recipe.ingredient_id' });
$stmt;
}
1;
|
