]>
Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/lib/DBICTest/Schema/TwoKeyTreeLike.pm
1 package # hide from PAUSE
2 DBICTest
::Schema
::TwoKeyTreeLike
;
4 use base qw
/DBIx::Class::Core/;
6 __PACKAGE__-
>table('twokeytreelike');
7 __PACKAGE__-
>add_columns(
8 'id1' => { data_type
=> 'integer' },
9 'id2' => { data_type
=> 'integer' },
10 'parent1' => { data_type
=> 'integer' },
11 'parent2' => { data_type
=> 'integer' },
12 'name' => { data_type
=> 'varchar',
16 __PACKAGE__-
>set_primary_key(qw
/id1 id2/);
17 __PACKAGE__-
>add_unique_constraint('tktlnameunique' => ['name']);
18 __PACKAGE__-
>belongs_to('parent', 'DBICTest::Schema::TwoKeyTreeLike',
19 { 'foreign.id1' => 'self.parent1', 'foreign.id2' => 'self.parent2'});
This page took 0.033005 seconds and 4 git commands to generate.