1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
package # hide from PAUSE
DBICTest::Schema::Year2000CDs;
use warnings;
use strict;
use base qw/DBICTest::Schema::CD/;
__PACKAGE__->table_class('DBIx::Class::ResultSource::View');
__PACKAGE__->table('year2000cds');
# need to operate on the instance for things to work
__PACKAGE__->result_source_instance->view_definition( sprintf (
'SELECT %s FROM cd WHERE year = "2000"',
join (', ', __PACKAGE__->columns),
));
__PACKAGE__->belongs_to( artist => 'DBICTest::Schema::Artist' );
__PACKAGE__->has_many( tracks => 'DBICTest::Schema::Track', 'cd' );
1;
|
