[Bast-commits] r7906 - DBIx-Class/0.08/branches/view_rels/t/lib/DBICTest/Schema

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-11-15 13:10:10 +0000 (Sun, 15 Nov 2009)
New Revision: 7906

Modified:
   DBIx-Class/0.08/branches/view_rels/t/lib/DBICTest/Schema/Year2000CDs.pm
Log:
Turn into a straight-inheritance view class

Modified: DBIx-Class/0.08/branches/view_rels/t/lib/DBICTest/Schema/Year2000CDs.pm
===================================================================
--- DBIx-Class/0.08/branches/view_rels/t/lib/DBICTest/Schema/Year2000CDs.pm	2009-11-15 12:29:23 UTC (rev 7905)
+++ DBIx-Class/0.08/branches/view_rels/t/lib/DBICTest/Schema/Year2000CDs.pm	2009-11-15 13:10:10 UTC (rev 7906)
@@ -1,31 +1,16 @@
-package # hide from PAUSE 
+package # hide from PAUSE
     DBICTest::Schema::Year2000CDs;
-## Used in 104view.t
 
-use base qw/DBICTest::BaseResult/;
+use base qw/DBICTest::Schema::CD/;
 
 __PACKAGE__->table_class('DBIx::Class::ResultSource::View');
-
 __PACKAGE__->table('year2000cds');
-__PACKAGE__->result_source_instance->view_definition(
-  "SELECT cdid, artist, title FROM cd WHERE year ='2000'"
-);
-__PACKAGE__->add_columns(
-  'cdid' => {
-    data_type => 'integer',
-    is_auto_increment => 1,
-  },
-  'artist' => {
-    data_type => 'integer',
-  },
-  'title' => {
-    data_type => 'varchar',
-    size      => 100,
-  },
 
-);
-__PACKAGE__->set_primary_key('cdid');
-__PACKAGE__->add_unique_constraint([ qw/artist title/ ]);
+# 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',