Commit | Line | Data |
---|---|---|
38a0b4ff | 1 | package DBICTest::Schema::TreeLike; |
2 | ||
3 | use base qw/DBIx::Class/; | |
4 | ||
5 | __PACKAGE__->load_components(qw/PK::Auto::SQLite Core/); | |
6 | ||
7 | __PACKAGE__->table('treelike'); | |
8 | __PACKAGE__->add_columns( | |
9 | 'id' => { data_type => 'integer', is_auto_increment => 1 }, | |
10 | 'parent' => { data_type => 'integer' }, | |
11 | 'name' => { data_type => 'varchar' }, | |
12 | ); | |
13 | __PACKAGE__->set_primary_key(qw/id/); | |
14 | __PACKAGE__->belongs_to('parent', 'TreeLike', | |
15 | { 'foreign.id' => 'self.parent' }); | |
16 | ||
17 | 1; |