First stab at restructuring with tests_recursive() - no functional changes

[dbsrgits/DBIx-Class.git] / t / cdbi / testlib / MyStar.pm

diff --git a/t/cdbi/testlib/MyStar.pm b/t/cdbi/testlib/MyStar.pm
new file mode 100644 (file)
index 0000000..22c1544
--- /dev/null
+++ b/t/cdbi/testlib/MyStar.pm
@@ -0,0 +1,22 @@
+package # hide from PAUSE 
+    MyStar;
+
+use base 'MyBase';
+
+use strict;
+
+__PACKAGE__->set_table();
+__PACKAGE__->columns(All => qw/starid name/);
+__PACKAGE__->has_many(films => [ MyStarLink => 'film' ]);
+
+# sub films { map $_->film, shift->_films }
+
+sub create_sql {
+       return qq{
+               starid  TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY,
+               name   VARCHAR(255)
+       };
+}
+
+1;
+