The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package # hide from PAUSE
    DBICTest::Schema::Year2000CDs;

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',
    { "foreign.cd" => "self.cdid" });

1;