missing svk add
Matt S Trout [Mon, 6 Feb 2006 01:47:02 +0000 (01:47 +0000)]
t/lib/DBICTest/Schema/TreeLike.pm [new file with mode: 0644]

diff --git a/t/lib/DBICTest/Schema/TreeLike.pm b/t/lib/DBICTest/Schema/TreeLike.pm
new file mode 100644 (file)
index 0000000..5b3835c
--- /dev/null
@@ -0,0 +1,17 @@
+package DBICTest::Schema::TreeLike;
+
+use base qw/DBIx::Class/;
+
+__PACKAGE__->load_components(qw/PK::Auto::SQLite Core/);
+
+__PACKAGE__->table('treelike');
+__PACKAGE__->add_columns(
+  'id' => { data_type => 'integer', is_auto_increment => 1 },
+  'parent' => { data_type => 'integer' },
+  'name' => { data_type => 'varchar' },
+);
+__PACKAGE__->set_primary_key(qw/id/);
+__PACKAGE__->belongs_to('parent', 'TreeLike',
+                          { 'foreign.id' => 'self.parent' });
+
+1;