]>
Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/lib/DBICTest/Schema/Track.pm
1 package # hide from PAUSE
2 DBICTest
::Schema
::Track
;
4 use base
'DBIx::Class::Core';
5 __PACKAGE__-
>load_components(qw
/InflateColumn::DateTime/);
7 __PACKAGE__-
>table('track');
8 __PACKAGE__-
>add_columns(
10 data_type
=> 'integer',
11 is_auto_increment
=> 1,
14 data_type
=> 'integer',
17 data_type
=> 'integer',
21 data_type
=> 'varchar',
25 data_type
=> 'datetime',
26 accessor
=> 'updated_date',
30 __PACKAGE__-
>set_primary_key('trackid');
32 __PACKAGE__-
>add_unique_constraint([ qw
/cd position/ ]);
33 __PACKAGE__-
>add_unique_constraint([ qw
/cd title/ ]);
35 __PACKAGE__-
>belongs_to( cd
=> 'DBICTest::Schema::CD' );
36 __PACKAGE__-
>belongs_to( disc
=> 'DBICTest::Schema::CD' => 'cd');
38 __PACKAGE__-
>might_have( cd_single
=> 'DBICTest::Schema::CD', 'single_track' );
39 __PACKAGE__-
>might_have( lyrics
=> 'DBICTest::Schema::Lyrics', 'track_id' );
41 __PACKAGE__-
>resultset_class( __PACKAGE__
. '::ResultSet');
43 package DBICTest
::Schema
::Track
::ResultSet
;
45 use base
qw( DBIx::Class::ResultSet::RecursiveUpdate );
This page took 0.0417 seconds and 4 git commands to generate.