]>
Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - TwoKeyTreeLike.pm
89d8e0a3cbe8ab9e46cc43d1a77c51aed5ac3942
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.03179 seconds and 3 git commands to generate.