[Bast-commits] r6319 - DBIx-Class/0.08/branches/rs_subclass/t/lib/DBICNSTest

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-05-19 14:22:05 +0000 (Tue, 19 May 2009)
New Revision: 6319

Modified:
   DBIx-Class/0.08/branches/rs_subclass/t/lib/DBICNSTest/S.pm
Log:
Get abbraxa's stuff to work

Modified: DBIx-Class/0.08/branches/rs_subclass/t/lib/DBICNSTest/S.pm
===================================================================
--- DBIx-Class/0.08/branches/rs_subclass/t/lib/DBICNSTest/S.pm	2009-05-19 12:27:10 UTC (rev 6318)
+++ DBIx-Class/0.08/branches/rs_subclass/t/lib/DBICNSTest/S.pm	2009-05-19 14:22:05 UTC (rev 6319)
@@ -1,6 +1,9 @@
 package DBICNSTest::S;
 use base qw/DBICNSTest::Result::A/;
 
+# init the resultsource instance and point it to the same table as the parent class
+__PACKAGE__->table (__PACKAGE__->result_source_instance->name); 
+
 sub submethod {
     return 'this is a new method in this subclass';
 }